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Une nouvelle forme d’ac- 
tion et d'aventure à essayer 
immédiatement. De multiples 
jeux d’arcade vous attendent. 
A bord d’un Jet-Byke, en 
plongée, un couteau entre les 
dents ou sur votre scooter 
sous-marin, combattez sans 
répit les armées de l'Ombre 
Jaune avant de rayer de la 
carte leurs bases sous-mari- 
nes. Méfiez-vous des attaques 


de requins, de pieuvres ainsi 
que des champs de mines qui 
infestent le fond des Océans. 


Et toujours en PLUS, le 
livre de poche constitué d’un 
roman de Bob MORANE, 
d’un guide illustré, d’une BD 
couleurs de 128 pages et d’une 
histoire dont vous êtes le hé- 
ros, qui vous mettra encore 
plus dans l’ambiance. 


Disponible sur : AMIGA, AMSTRAD, PC, THOMSON, ATARI sur 2 disquettes. 





BOB MORANE OCEANS : PLONGEZ AU CŒUR DE L'ACTION !! 
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| Pour de plus am- 
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: LE GRAND RETOUR (I) 
Mais le grand retour de qui ? 
Des dossiers ? Pas vrai- 
ment, dans ce numéro c’est 
la domotique, une donnée 
déterminante pour la mai- 
son de demain. 
Les programmes ? Pas tout 
à fait, mais la sélection 
d’utilitaires et de didacti- 
ciels de ce numéro est as- 
sez exceptionnelle. 
La technique ? Cortex re- 
vient après une longue ab- 
sence et une nouvelle série 
d’aide à la programmation 
débute. 
Les tests de logiciels ? Pas 
vraiment nouveau ; par 
contre les didacticiels dé- 
barquent avec une rubrique 
pour eux tout seuls. 
C'est tout simplement le 
grand retour de TEO avec 
une nouvelle maquette et 
beaucoup de nouvelles 
idées. Sans oublier que 
c’est aussi le retour de 
l'été; alors, faites comme 
nous, emmenez votre 
Thomson en vacances. 
Pierre E. GRANGE 
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ÆlcHroniQues : le 


traitement de texte ré- 


















volutionnaire. Chasse 





à l'homme. [7] DoMoTIQUE : laissez-vous 
aller, votre ordinateur travaille pour vous. 
BOB [IV : Bob Morane se lance dans une 
quatrième aventure aquatique, plongez avec 
lui. | 6 INVENTEURS : les découvertes des 
journalistes de TEO. 
PROGRAMMES : 


du dessin, des jeux de 





mots et de cartes 


et même des maths. TEOPROMO. 
FA 





49] JURIDIQUE : des enseignants hors la loi 
pour la bonne cause. BALEux :en attendant la 
rentrée BreoscooP :ce qui se prépare sur 
Thomson. (58) CORTEX : voici enfin la sé- 













quence VII. sg EDUCATIFS : pour ne pas tout 
Fr 
oublier pendant les vacances. BASIC 
FONCTIONNEL : une 
philosophie nouvelle 
pour ne plus pro- 


grammer idiot ! 


CHRONIQUES 





Loriciels se lance dans le 
sponsoring. 
il est, depuis le 2 avril 











LORICIELS DANS LA COURSE 


Au total 10 courses du 16 


avril au 16 octobre. 
L'occasion pour Loriciels 







LES COURS DE 








DIGITAL 
PREND LE 
LARGE 





Le N°1 de l'informatique 
de réseaux s'installe en 
septembre prochain sur la 
croisette pour y présenter 
une gigantesque exposition 
de son matériel. DecWorld' 
88. 

Le Palais des Congrès de 
Cannes l'accueillera sur 
15000 m2 et pendant 15 


de s'investir dans une 
épreuve dynamique et 
exigeante. Un challenge 
comparable à celui rencon- 
tré dans la micro. 


jours. 15 jours durant 
lesquels seront données 
plus de 100 conférences 
et 300 démonstrations 
quotidiennes. 


dernier, le sponsor de la 
Porsche 944 pilotée par 
René Metge à l'occasion 
de la Porsche Turbo Cup, 
trophée qui réunit une tren- 










L'ENTREPRISE 






Les formations de remise 
à niveau et de maîtrise des 








taine de pilotes de haut 
niveau sur les circuits 
français les plus prestigieux 
(Montihery, Dijon, Paul 
Ricard...). 


L'occasion enfin, pour 
Loriciels, d'accroître son 
audience et d'asseoir sa 
notoriété au-delà des fron- 


tières de la micro. 


SIRITT DEVIENT RITUEL 





Du 13 au 15 octobre se 
tiendra cette année au 
pavillon des expositions de 
Bourges la 5ème édition du 
Siritt. 

Le salon de l'innovation et 
des transferts de technolo- 
gies aura pour thème cette 
année "Concevoir et créer 
pour l'informatique : DAC, 
CAO, CFAO". 

Voilà qui nous intéresse. 
Informatique et applications 
sectorielles, CFAO, infor- 
matique relative aux outils 
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techniques de base seront 
développées au cours de 
conférences. S'ajoutant à 
cela plus de 130 exposants 
sur 3500 m2. 
Incontestablement le Sinitt 
a un impact sur les entre- 
prises régionales. On peut 
lui prédire un bel avenir 
lorsque l'on sait qu'en 84 le 
1er salon comptait seule- 
ment 45 exposants sur 
1000 m2. 

Une belle victoire pour la 
décentralisation. 






outils informatiques 
tiennent sans conteste 
une part importante dans la 
vie de l'entreprise. 
Conscient de ce fait, 
n Tech a mis au point 
une série de logiciels de 
perfectionnement profes- 
sionnel et de formation 
continue. 
Durée des cours : de 2 à 

h. 
hèmes : gestion, gram- 
maire, Bourse, Pascal, Ba- 
sic, maths, économie. 
Intérêt : choix des thè- 
mes très varié, complé- 
ment aux formations 
lassiques avec intervenant 
(de type stage de remise à 
niveau). 
Prix : relativement élevés, 
tinés aux entreprises, à 
Ouvrir, l'EAO grâce aux 
logiciels de formation Open 
ech.n 
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On attend plus de 30 000 
décideurs et chefs informa- 
tiques du monde entier. 

La précédente édition en 
87 au World Trade Center 
de Boston avalt été 
couronnée de succès. 

Et si la gigantisme de l'ex- 
position cannoise atteint 
celui de Boston on peut 
s'attendre à être comblé : 
location de 2 paquebots 
comme hôtels (dont le 
Queen Elizabeth), ce n'est 
pas suffisant puisque 
toutes les chambres de 
Boston étalent occupées, 
le tout avec un budget de 
180 millions de $. 

Cannes s'apprête à vivre 
un nouveau festival dès la 
rentrée prochaine. 

Digital met de gros moyens 
dans la manifestation et fait 
son Sicob à part. 

A suivre... 


MANUSCRIT 
4.7. TELLEMENT 
PLUS SIMPLE ! 











C'est un traitement de 
texte disposant de toutes 
les fonctions habituelles et 
bien connues d'un logiciel 
digne de ce nom (centrage, 
marge, interligne variable, 
polices classiques, dépla- 
cement de blocs). 

Mais ses auteurs (B. BRO- 
CARD et C.DESCOMEES) 
de Cobra Soft, particullère- 
ment créatifs et ingénieux, 
y ont apporté des plus : 
Au niveau des polices, 
une variété de caractè- 
res conventionnels quasi- 
infinie, plus de l'Hébreu, 
de l'Arabe, du Japonals, 
du Grec, du Thai, de 
l'Egyptien. et divers 
symboles, tout est possi- 
ble. 

Au niveau de l'utilisa- 
tion, très facile d'accès, 
un enfant de cinq ans 
peut s'en servir en théorie. 
Enfin, mettons l'accent 
sur le fait qu'il est compa- 


Bien-sûr, c'était trop beau 
et nous nous sommes fait 
berner comme beaucoup 
d'entre vous. La jolle boîte 
du logiciel ne contenait en 
effet qu'un stylo. 


Le logiciel-gag était né. 
Mais, quand-même, si un 
éditeur sortait un pareil 
traitement de texte, on 
peut, sans trop s'avancer, 
lui prédir un bel avenir. 
Nous attendons. 


QUAND LA TV 
S'AMUSE 





Le rôve des fans de 
feuilletons se réalise enfin. 
Ils vont pouvoir participer 
à l'aventure et aider leur 
héros. 

En effet, la série diffusée 
sur la 5 "Captain Power" 
n'est pas ordinaire puisqu'il 
s'agit d'un feuilleton 
interactif. C'est-à-dire qu'à 
l'aide d'un pistolet vendu 
dans le commerce, le télé- 
spectateur peut tirer sur 
les vaisseaux ennemis à 
l'écran et, ainsi, marquer 
des points (comptabilisés 
Sur Un compteur relié au 
pistolet). Ce type de jeu a 
vu le jour en Angleterre 
avec Kniahtmare (prix 


CHRONIQUES 


JOURNEES INFORMATIQUES 


DECAVAILLON 





Deuxième édition de la 
"Foire aux Logiciels” après 
le succès de septembre 
1987. 

Elle s'appellera désormais 
"Journées informatiques de 
Cavaillon”. 

A l'initiative du centre de 
ressources des techniques 
nouvelles et du lycée pro- 
fessionnel de Cavaillon, 
cette exposition est consa- 


logiciels pédagogiques, à 
l'utilisation, dans le cadre 
scolaire, d'outils profes- 
sionnels, à l'évolution du 
matériel (réseaux de PC, 
PAO, CAO, DAO, outils de 
la bureautique.…). 

La manifestation a lieu du 
mercredi 12 octobre au 
vendredi 14 octobre 


à la présentation de 
1988.m 


INFOCIAL : PARTICULIER...EMENT 


UTILE 


Plus d'embrouilles judiciai- 
res possibles avec le 


du travail, les licencie- 
ments, les congés payés, 


CHRONIQUES 


COURS PARTICULIERS 


7 36-15 ASTERIX 





Devinez qui seront vos 
nouveaux professeurs de 
math et de français à la 
rentrée ? un petit mousta- 
chu et un gros à rayures 
bleues et blanches. Et oui ! 
Astérix et Obélix peuvent 
vous donner des cours par- 
ticuliers en math (calcul 
mental) et en français 
(plusieurs niveaux). Pour 
cela il vous suffit de taper 
36.15 code ASTERIX, et ce 
n'est pas la paine d'atten- 
dre la rentrée : ils sont dèjà 
là avec 6 jeux éducatifs. 
Ces jeux captivants (même 
pour les plus de 20 ans) 
vous testeront en math en 
vous demandant, par 
exemple, quelle opération 
appliquer à un nombre 
donné pour devenir tel 
autre nombre. Mais aussi 
en grammaire (découpage 
d'une phrase en sujet, 


verbe, COD...) ou bien en 
reconstituant un texte par 
colonnes (pas facile). Votre 
mémoire sera elle aussl 
évaluée en essayant, par 
exemple, de reconstituer 
un texte que VOUS aurez pu 
mémoriser auparavant. 

De l'éducatif sur minitel 
c'est plutôt rare, et en se 
penchant bien TEO à dé- 
couvert que derrière ces 
jeux se cachait l'éditeur 
bien connu Carraz édl- 
tions. Renseignements pris 
auprès de la direction du 
centre serveur, ces jeux 
éducatifs seront bientôt 
primés. 

Après tout, si vous compa- 
rez les coûts, une heure de 
36.15 ne coûte “que” 60 F 
alors qu'un cours particu- 
lier. Surtout un cours par- 
ticulier avec Astérix et 
Obélix | 


CHASSE A 
L'HOMME 


rs 
Depuis le N° 15 de TEO, 
nous avions perdu toute 
trace de l'auteur d'un super 
programme : VIDEOTEXT. 
Malheureusement, ce 
programme de composition 
de pages vidéotextes a 
été publié dans une version 
qui n'était qu'une ébauche. 
Vous avez été nombreux à 
vous apercevoir des pro- 
blèmes pour le falre tour- 
ner, mais bien moins nom- 
breux à les résoudre. Le 
pauvre auteur, lul, se de- 
mandalt pourquoi person- 
ne ne lui écrivait. Alors 
nous sommes partis à la 
chasse au programmeur, 
semant quelques disquet- 
tes par-ci, un clavier par- 
là... et c'est du côté du 
Gard que l'un de nos piè- 
ges a fonctionné : il s'est 
jeté sur un programme 
basic en criant "plus de 
GOTO), j'ai déjà dit plus de 
GOTO | Ceci dit, ce per- 
sonnage fort sympathique 
est prêt à répondre à tou- 
tes vos questions sur ce 
programme (marchant très 
bien si l'on supprime quel- 
ques "bugs”). Max HAGEN- 
BURGER - Rue Mases 
30190 SAINT-CHAPTES 
Tél : 66/81/25/88 

Serveur : 66/81/26/20 


MICRO-SICOB 


Cr em] 
En marge du classique 
mais non moins grand SI- 
COB du mois d'avril (1000 
exposants, 2 200 mar- 
ques), se tient cette année, 
en septembre, un SICOB 
spécial Micro. Ce salon 
abritera les premières 
assises nationales de la 
distribution informatique, 
cela sur deux joumées : la 
1ère consacrée à “l'évolu- 
tion du marché de la distri- 
bution européenne à l'ho- 
rizon 92”, la 2ème sera 
axée sur les différents 
canaux et différentes mé- 
thodes de distribution. On 
attend 70 000 professlon- 
nels pour visiter près de 
250 exposants. Au cours 
du salon, des bancs 
d'essai mais aussi un es- 
pace réservé à la simula- 
tion d'entreprise (gestion, 
bureau d'études, secré- 
tariat, marketing...) animé 
par nos confrères de Micro 
Soft. Rendez-vous est pris 
du 19 au 24 septembre, au 
Parc du Bourget. 





DOSSIER 


VOTRE MAISON 
SE REBELLE, 


DOMOTIQUEZ-LA! 


Ce sera à terme une vérita- 
ble révolution au sein du 
foyer. 

Susceptible d'apporter un 
gros "plus" à la maison, la 
domotique va bouleverser 
notre univers quotidien et 
prendre une place prépon- 
dérante dans la gestion de 
la maison. 

Mais le pauvre individu 
laissera-t-il pénétrer chez 
lui tant de technologie 
sans une certaine appré- 
hension ? 


Fini les petites corvées quotidiennes, 
fini la peur du cambrioleur, désormais 
la domotique pense, veille et agit pour 
vous. 

Grâce à des systèmes réalisant plu- 
sieurs fonctions, connectés entre eux 
et à des réseaux internes et externes, 
vous pouvez ordonner par téléphone à 
la cafetière de se mettre en route ou 
aux volets de se fermer. Tout cecidans 
un avenir plus ou moins proche. Car la 
domotique se heurte, à l'heure actuelle, 
à un gros problème : l'absence de 
norme de réseaux et de protocoles 
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européens ou internationaux. D'où la 
difficuité de relier entre eux, ou à une 
unité centrale, les apparells ménagers. 
Pour éteindre ou allumer le four et 
mettre le lave-vaisselle en route, il faut 
que l'un et l'autre se rejoignent quel- 
que part. Or, c'est là le point faible de 
tous les systèmes. 


Le Sécuriscan peut 
jouer au garde-malade 


Thomson effectue de sérieuses 
recherches dans ce domaine, 
notamment avec la création du 
SECURISCAN. 

C'est une sorte de micro-processeur 


sans écran ni clavier, il fonctionne de 
deux façons : 

- par transmission radio 

- via le secteur, suivant les périphé- 
riques raccordés. 
Pour relier les différents apparells 
domestiques au Sécuriscan, Thomson 
a prévu des interfaces connectées sur 
les prises normales. 
Sécuriscan possède donc un grand 
nombre de périphériques disponibles 
et c'est là son grand intérêt. 
Sur sa mini-imprimante, il visait tous 
les événements de la journée : visite, 
panne, intrusion. Il peut servir de 
sonnette et possède un digicode pour 
armer et désarmer la surveillance. Un 
mini émetteur-radio permet de réaliser 
la même opération à distance. Pour 
déceler une présence, deux détec- 





Le Sécuriscan, actuel leader du marché pour particullers 


TEO N° 18 - JUILLET/AOÛT 1988 





DOSSIER 





Une maison “domotiquée" du sol au plafond et livrée clefs en main par le groupe Maison Familiale 


teurs peuvent être raccordés : les 
infra-rouges passifs qui réagissent à 
la chaleur et ceux sensibles aux 
champs magnétiques. Sirènes, flash 
de lumière ou messages violents diffu- 
sés par une vole synthétique dissua- 
deront alors l'intrus d'explorer plus 
avant la maison. Sécuriscan peut 
jouer au garde-malade grâce à une 
alarme de poche, petit récepteur-radio 
qui déclenche le téléphone en cas 
d'agression ou de problème. 

Enfin, c'est un système sans fil qui 
fonctionne avec un logiciel 16 KO. 


Le produit est sans conteste haute- 
ment performant mais il se heurte au 
scepticisme des acheteurs potentiels. 
il est le mieux vendu parmi les 
appareils de cette génération et 
pourtant seulement peu d'exemplai- 
res trouvent un acquéreur. 


Les mentalités européennes sont 
encore loin d'accepter la robotisation 
enmatière de logement. La mécanisa- 
tion totale du cocon familial laisse les 
futurs consommateurs relativement 
indifférents. Ainsi les voitures avec 
voie synthétique à bord diffusée par un 


micro-processeur ne connurent qu'un 
engouement passager : elles ne lais- 
saient que très peu de place à l'initia- 
tive personnelle. 

Or cette nouvelle maison robotisée 
ne menace-t-elle pas d'occulter com- 
plétement l'homme ? 

Selon diverses enquêtes, il ressort en 
effet que nous craignons une maison 
standardisée, mécanique, sans cha- 
leur. 


Les sept grands de 
l'électronique se sont 
associés : EUREKA ! 


Pourtant sept grands de l'électronique 
européenne (Thorn, Emi, Goic, Mul- 
lard, Electrolux, Philips, Siemens, 
Thomson) se sont associés dans le 
cadre des programmes Euréka pour 
normaliser les réseaux. Ils sont 
persuadés qu'à terme la domotique 
représente un énorme marché. Et pas 
seulement la domotique individuelle 
mals, et surtout, celle des entrepri- 
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ses, plus prenantes et ouvertes aux ap- 
plications de la domotique. 

Déjà les réseaux remplacent peu à peu 
l'encombrant matériel électrique. De 
plus en plus, les nouvelles sociétés 
prévoient un shéma d'informatisation 
dès la conception du ou des bâtiments. 
Même si au départ la dépense est 
coûteuse, elle s'amortie très vite et 
permet un gain de temps non négli- 
geable en facilitant et accélérant la 
circulation des informations. 

En matière d'information et de 
communication, après notre Minitel 
national, la France, elle, ne fonde pas 
d'espoirs sur l'avènement du Réseau 
Numérique à Intégration de Service, le 
RNIS. 


Un bus pour l'avenir 
fn ee es | 


D'ici 1990, ce nouveau système réuni- 
ra sur un réseau unique les différents 
services de  télécommunication. 
Aucune ligne ne sera plus occupée ; il 
permettra latéléconférence et lerenvoi 
d'appel, l'audio-vidéo-texte, une télé- 
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Le contrôle de la maison sur minitel, une possibilité intéressante lorsque l'on n'est pas souvent chez soi | 


copie rapide, une micro-informatique 
communicante associant téléphone et 
échanges de données entre termi- 
naux intelligents et enfin, un visio- 
phone à bas débit. Les différents 
débits seront intégrés sur un même 
bus, ce qui accéièrera de beaucoup 
l'obtention du résultat de chacun des 
appareils branchés. 


Le RNIS possède donc un très grand 
avantage : il est limité à un bus unique 
pour un seul raccordement, une seule 
installation filaire et une prise univer- 
selle unique. Il est précieux pour la 
communication externe et interne des 
entreprises, certes, mais aussi pour 
les consommateurs individuels. 


La France a également d'autres 
projets. Toujours dans le cadre d'une 
amélioration, par le biais de Thomson 
et des six autres grandes firmes 
informatiques, les pays de la CEE 
Visent à intégrer les produits domes- 
tiques existants dans un standard 
européen. Cette association a un 
but : asseoir une 3ème puissance éco- 
nomique dans le monde et protéger le 
marché informatique des insertions 
américaines et nippones. 
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Le bas de gamme : 5000 Francs 





Le dérnarrage de ce marché risque 
d'être pourtant plus lent que prévu. 
Les entreprises autant que les 
consommateurs individuels n'ont 
pas forcément les moyens d'ins- 
taller ce tout nouveau matériel. 
Ces derniers n'opposent pas seu- 
lement une barrière psychologique 
mais aussi une barrière d'ordre 
financier. 

Car l'installation d'un système 
domotique dans une malson est 
onéreuse entre 5 000 et 
12 000 Frs pour le bas de gamme 
japonais et près de 10 000 Frs 
pour le haut de gamme. 

En France, Thomson Sécuriscan 
vend à partir de 22 000 Frs une 
installation de protection et les prix 
varient suivant les 8 automations 
complémentaires en option. 

Le groupe “Maison Familiale” as- 
socié à Domoconcept, qui a mis au 
point la première maison domo- 
tique européenne en France vend 
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Primordial : protégez vos TEO 


l'installation qui comprend le précà- 
blage jusqu'à l'équipement complet 
entre 40 000 et 120 000 Frs 
selon le niveau d'équipement. 

Le système intégré de CMF/Domo- 
concept permet, outre dissuader 
d'éventuels voleurs ou économiser de 
l'énergie, de mettre en marche plu- 
sieurs appareils domestiques pendant 
une absence. 


Un doute : demandez à 
votre minitel si voire 
femme est sortie 


Ainsi, si vous rentrez chez vous par le 
garage ouvert automatiquement, la 
lumière s'allumera toute seule. 
Lorsque vous vous engagerez dans 
les escaliers, là aussi vous serez 
éclairé. Au bout de 10 minutes tout 
s'éteindra, la porte du garage se 
refermera. Arrivé dans le living, une 
douce musique vous accueille, puis un 
bain coulera à l'étage au-dessus, la 
température de la salle de bain s'est 
mise à 25”, les volets se ferment... 


.… Tout ceci en appuyant sur un bouton 
qui enverra les ordres que vous seul 
avez programmés... Mais danger, 
évitez de changer d'humeur entre- 
temps | Ce système est raccordé au 
Minitel qui se transforme en tableau de 
bord pour toutes vos opérations. 
Et quand le RNIS sera appliqué, vous 
aurez d'immenses facilités et possibili- 
tés par le biais du téléphone... 


Un épouvantiail dans 
la famille ! 


Le Japon, de son côté, met aussitous 
ses espoirs dans ce nouveau marché 
que représente la domotique indivi- 
duelle, d'autant plus qu'il représente 
une formidable aubaine pour un pays 
dont la production informatique arrive 





DOSSIER 


Portier et télécommande, pour avertir votre malson que vous la laissez seule. 


peu à peu à saturation. 
Mais même dans ce 
pays, modèle de l'hyper- 
développement, la domoti- 
que individuelle passe mal. 
Une population féminine 
ne travaille pas. Elle voit 
d'un mauvais oeil l'arrivée 
de ces ordinateurs qui 
bousculent les traditions 
domestiques. 


La domotique apparaît 
quand même comme un 
épouvantail au sein du 
foyer familial où l'on ac- 
cepte mal que l'automa- 
tisme puisse remplacer des 
tâches que la main hu- 
maine a tant faites. 

Cette tendance que la 
technologie a à s'insinuer 
dans notre vie privée sera 
sans doute mieux accep- 
tée d'ici quelques années, 
tout comme la cafetière, 
le four à micro-ondes... 
ont eux-mêmes été 
acceptés. 


B. MURTIN 
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Déjà 500 000 foyers français sont équipés, pensez-y ou blen.. 
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INTERVIEW 


BOB MORANE 


OCEANS 


5 ans déjà, Infogrames a fait ses dents et mord désormais violemment dans le marché 
du logiciel. Et c'est l'occasion pour TEO de vous dévoiler les coulisses de l'éditeur lyonnais, 
cela au travers du dernier rejeton : BOB MORANE 4. Dernier en date de la saga (qui 
comprend déjà 3 épisodes), ce cher Bob Morane plonge dans l'océan. Alors prenez masque, 





tuba et palmes, et suivez-nous dans l'univers sous-marin de l'aventurier. 
Nous sommes dans le Pacifique Nord avec pour mission de détruire les bases ennemies 
qui infestent le fond marin, et ensuite l'Ombre Jaune. 
Difficile car les pieuvres venimeuses, les requins et l'infernale Ombre Jaune ne 


facilitent pas la tâche. 





C'est là que nous rencontrons Richard Bottet : le 
chef de projet du logiciel 





- TÉO : Comment Bob Morane est- 
il né sur ordinateur ? 

- Richard : Dans un premier 
temps, l'équipe se réunit pour définir 
quel type de jeu on recherche (ar- 
chade, jeu de rôle, aventure...). 
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Puis le graphiste propose un 
stoary board (scénario illustré) pour 
donner à tout le monde une idée de ce 
que pourrait être le jeu. ll crée les 
situations, les personnages et leurs 
différentes positions. 
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- TEO : Comment associe-t-on gra- 
phisme et programme ? 

- Richard : À partir de là, l'équipe 
de programmeurs intervient et s'oc- 
cupe de mettre les personnages 
créés en interaction entre eux 
combats, batailles. Elle leur donne vie. 
Chacun des programmeurs réalise 
une situation et, ensuite, on réunit le 
tout. Ilfaut savoir que les programmes 
sont effectués en C (il vous sera 
d'ailleurs aussi possible, dès la ren- 
trée, de programmer en C grâce à un 
logiciel de chez Loriciels). C'est un 
langage compilé très proche de la 
machine ; en effet il serait impossible 
de les réaliser en basic, cela prendrait 
beaucoup trop de piace et serait beau- 
coup trop ent. 

- TÉO : Et les bruitages ? 

- Richard : Le technicien du son 
dispose d'un studio complet où il 
enregistre différents sons (exemple : le 
son du sous-marin est véritable) et les 
colle ensuite au jeu. 

Mais son travail ne se limite pas 
aux bruitages, il crée de véritables 
mélodies (comme pour le générique). 


On n'assembie les 
sons au logiciel que 
lorsque le programme 
est presque terminé. 
Très important, un 
jeu sans sons serait 
fade et irréaliste. Es- 
sayez donc de couper 
le volume lorsque 
vous jouez... 
(nous  consacrerons 
d'ailleurs un dossier 
spécial "son de logi- 
ciel” dans le prochain 
numéro). 





(Re | 
Quelques coups de palmes 


et nous rencontrons. 


Philippe Agripnidis, le responsable marketing 





- TEO : Quel est votre rôle ? 

- Philippe : Un jeu sans emballage 
n'est pas attractif et vendeur. 

Notre rôle est de le faire devenir 


tel. 

Nous nous occupons donc de sa 
présentation : le packaging (pochette, 
couverture, décoration), de lui ajouter 
des éléments (livre de poche à l'inté- 
rieur avec BD et jeu de rôle (tiré à 20 
000 exemplaires). 

Nous apportons la touche finale en 
quelque sorte. Une fois le produit prêt, 
il nous faut le lancer : publicité, articles 
de presse, concours. 


- TEO : Quel est le coût 
de toute l'opération ? 

- Philippe : Environ un 
million de francs. 

- TEO : Quel impact a 
Bob Morane? 

- Philippe : | serait 
prétentieux de dire que 
nousavonslancé la mode, 
mals depuis que les pre- 
miers Bob Morane logi- 
ciels sont nés, on assiste à 
des reparutions inédites 
du roman, des concours Bob Morane 
sur NRJ et Indochine tourne un clip sur 
le personnage au Pérou. 

A suivre donc... 

Pendant ce temps, Bob Morane se 
bat contre requins et hommes-gre- 
nouilles de l'Ombre Jaune. Il a pour 
mission de détruire au couteau les 
émetteurs qui brouillent la piste des 
bases ennemies, de détruire les pa- 
trouilles de scooters marins et enfin 
d'anéantir l'Ombre Jaune. 


Tout en prenant bien garde de sera- 
vitailler en énergie et oxygène. 
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INTERVIEW 


Troisième rencontre : 
Nereida, 
du service Export 


Celle-ci nous explique que Bob 
Morane est vendu en RFA, Angleterre, 
Hollande et Italie sousforme de produit 
fini. Néanmoins, ces pays adaptent le 
produit à leur marché (emballage). Il 
est vendu sous forme de licence à 





l'Espagne, qui le fait rééditer. Sachez 
quand même que Bob Morane porte le 
nom de Lee Enfield en Angieterre. 

Se posent malheureusement les 
traditionnels et bien connus problè- 
mes d'adaptation qui, sans dénaturer 
le jeu, l'amoindrissent. Ainsi, sur Ams- 
trad ou Thomson, le logiciel est amputé 
du son (qui devient médiocre) ; quant 
au graphisme, il est appauvri. 





On doit cela aux capacités de 
mémoire inférieures à celles d'Amiga 
où Atari. De ce fait, l'ordinateur est plus 
lent et si on veut garder la même 
vitesse de jeu il faut supprimer des 
paramètres : son, graphisme, enne- 
mis, relief... 
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INTERVIEW 


808 MORANE OCEPH 


| + - Ress 
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+ 








Pour "Aflant ide ailez-y.…. 


c'est tout droit 





Alors parlons-en de ce petit 
dernier... 


Comme laversion Thomson n'est 
pas encore terminée, nous n'avons pu 
tester la version Atari ST, et il faut 
s'attendre à des différences entre les 
deux versions. 

La solution qui a été retenue 
pour l'adaptation sur machine 8 bits 
(donc Thomson) est sûrement la 
meilleure envisageable : plutôt que de 
supprimer des épreuves ou des par- 
ties du logiciel, c'est le nombre d'enne- 
mis qui va être réduit. Ainsi on obtien- 
dra sur Thomson l'intégralité du jeu et 
une bonne vitesse. Depuis le temps 
que l'on vous parie de ce jeu et que l'on 
ne vous atoujours pas dit de quoi il 
en retournait, vous devez commencer 
à vous impatienter. 

Alors commençons par le dé- 
but : la boîte du logiciel (ie packaging 
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comme on vous l'a dit plus haut), 
contient la désormais classique trilogie 
Bob Morane : Un roman, une bande 
dessinée et un jeu de rôle. Le roman 
"Opération Atlantide” par Henri Ver- 
nes, le célèbre écrivain qui a donné 
naissance au personnage Bob Mo- 
rane. Cette fols, ils'agit d'une aventure 
sous-marine où Bob Morane devra 
aller à la recherche de l'Atlantide, ce 
fameux continent englouti sous la 
mer ; mais une puissance étrangère va 
tenter de l'en empêcher afin de règner 
sur le monde. Qu'on ne s'inquiète pas, 
Bob Morane vaincra après avoir dé- 
couvert des mondes insoupçonnés.. 
Du grand classique en quelque sorte 
mals, somme toute, assez plaisant. La 
bande dessinée n'est pas un chef 
d'oeuvre du genre mais n'oublions pas 
que son but premier est de parler de la 
mer ; il s'agit donc d'histoires de 
baleiniers… 
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Vous avez déjà essayé 
de respirer sous l'eau ? 


À peine avez-vous fini la BD que 
vous tombez sur un Guide des Océans 
pour tout savolr ou presque sur la 
plongée sous-marine et son histoire. 
Vous apprendrez ainsi que Robin des 
Bois ne s'est jamais caché dans un lac 
en respirant par une paille; tout simple- 
ment parce que c'est impossible | 
L'homme ne peut pas respirer plus de 
20 cm au-dessous du niveau de l'eau, 
sinon tous les plongeurs auralent des 
tubas de plusieurs mètres de long. On 
vous expliquera aussi que les espèces 
de requins les plus gros (requin-baleine 
et requin-pélerin) sont inoffensifs pour 
l'homme, Ils se nourrissent de plancton. 

L'auteur ? Vous le connaissez 
déjà puisqu'il n'est autre que le res- 
ponsable marketing de la série Bob 
Morane. D'ailleurs, si vous vous rappè- 
lez bien, il était aussi ie spécialiste de 
l'espace dans Bob Morane Science- 
Fiction. Ils Sont comme ça chez Info- 
grames, très polyvalents | 





Par contre, le jeu de rôie est tou- 
Jours concocté par B. Rosenthal: vous 
êtes Bob et vous devez résoudre le 
mystère qui plane autour de "l'invention 
du professeur”. Selon vos réactions, il 
vous faudra Un quart d'heure ou 
plusieurs heures pour y arriver. 

Bon | Le packaging est réussi, 
mais ie logiciel ? Attendez ça vient, on 
vous avait promis des détails sur ce 
nouvel épisode de la saga Bob Morane, 
en voilà. 


Attachez vos ceintures 





Dans le dernler numéro de TEO, 
on vous avait annoncé le décollage de 
la série avec la sortie de ce quatrième 
volume, et bien nous confirmons. Tout 
d'abord parce que ce jeu a été conçu 
comme un enchaînement de séquen- 
ces, un peu comme Un film. 


Bob est parachuté sur les îles 
Marshall en plein Pacifique Nord ; et 
à peine at-il enfourché son scooter des 
mers qu'un Dacoït (méchant sbire de 
l'Ombre Jaune) veut le pousser à l'eau. 
Pas de sentiment (vous verrez qu'il n'y 
en à pas beaucoup durant le jeu), c'est 
lui ou vous et il vous faudra donc le 
pousser à l'eau d'un violent coup de 
pied. 


A pelne vous êtes vous débarras- 
sé de cet ennemi que vous accédez au 
bathyscaphe. Une fois dans le sous- 
marin, vous devez repérer les bases 
ennemies, et c'est d'autant plus difficile 
que l'Ombre Jaune a placé des 
brouilleurs d'ondes pour détraquer vos 


radars. Ne paniquez pas, sortez de 
votre  bathyscaphe, détruisez le 
brouilleur, remontez dans le bathysca- 
phe et repérez les bases. Vous 
pouvez alors les détruire d'un coup de 
rayon laser. 


Puisque c'est Un bonlogiciel, des 
requins,  pieuvres et  hommes- 
grenouilles vont se dresser sur votre 
route : il vous faudra alors les combat- 
tre au couteau. Les ennemis sont 
méchants, c'est bien connu et, en plus, 
ils sont rancuniers ; aussi lorsque vous 
avez détruit une base, ils enfourchent 
leur scooter sous-marin (non ce ne 
sont pas les mêmes qu'au départ) et 
vous tirent dessus. Comme vous 
n'avez pas que Ça à faire, vous les 
torpillez pour en finir. 


Pour en finir n'est pas le terme 
exact car les bases ennemies sont 
nombreuses et chaque base détruite 
entraîne des représailles. 
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INTERVIEW 


Et avec un peu 
moins de méchants, 
vous avez ? 


Nous vous le répétons, ce test 
a été fait sur version Atari, seule 
disponible actuellement, mais les 
responsables de l'adaptation sur 
Thomson, nous assurent que lescéna- 
rio sera maintenu, simplement il y aura 
moins de vilains ennemis. Et bien c'est 
tant mieux, car il est une heure du 
matin et il m'a fallu toute l'après-midi 
pour lire, jouer, m'informer et tester ce 
jeu, foi de Bob Morane, Je ne ferais pas 
ça tous ies jours. 


BOB MORANE 
forever … 


Enfin, réjouissez-vous, "BOB 
MORANE COMMANDO" est déjà 
prévu, N°5 de la série, il se déroulera 
au pays des neiges éternelles : au-delà 
du cercle polaire. Bob, seul au milleu de 
ces étendues blanches, devra affronter 
de nouveau des ennemis dangereux 
retranchés dans une forteresse impre- 
nable. imprenable ? Pas pour Bob qui, 
avec votre appui, détruira de fond en 
comble le bâtiment et s'enfuira peut- 
êtreenskiouenscooterdes neiges. On 
ne peut pas vous en dire plus, et pour 
cause : l'équipe Infogrames hésite 
encore | 

Quant au N°6 ("BOB MORANE 


EN ASI El ilne sortira pas avant un an 
et demi. 


Daniel GRADEL. 
Peter 
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INVENTION 


DU NOUVEAU 
SUR LE 220 


Dans cette rubrique, nous allons 
les journalistes de TEO sont allés 
monde (ou presque). Ces produits ont to: 
pas être distribués par les réseaux habitue 
à ceux qui se donnent la peine de les cherche 


La première des Inventions que 
nous vous présentons est un apparell 
de régulation électrique. Peut-être 
l'ignorez-vous, mais le courant 
électrique 220 V qui sort de vos prises 
murales, et que vous envoyez inno- 
cemment dans votre réfrigérateur où 
votre TOB, n'est pas régulier. Et oul. 
Votre courant éiectrique vous est livré 
avec des micro-coupures, des sauts 
ou des baisses de tenslon, € Ç 
d'orage les surtenslons peuv 
ment se transformer en disjonctage 

Le remède àtous ces problèmi 
nous vient d’un petit village des Monts 
du Lyonnals où trols frères ont établi 
leur société : «Les fils de G. 
PARRIER». 

Ces Inventeurs ont mis au point 
un système de détection des défauts 
de courant assez révolutionnaire : l'in- 
novation princlpaie est la détection des 
écarts de tension à partir de deux 
milliampères | (on est loin des disjonc- 
teurs classiques).Cet appareil existe 
en plusieurs versions dirigées vers 
deux applications : les entreprises et 
les particuliers. 

Pour les entreprises, l'appareil 
permet donc de pallier à toutes les 
micro-coupures, jusqu’à une seconde, 
ce qui est souvent préjudiclable au bon 
fonctionnement de nombreux compo- 
sants électroniques que l'on retrouve 
dans les ordinateurs, les commandes 
numériques, etc. Mais il permet 
surtout de détecter les défauts de ten- 
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DU: senter des produits que 
Dour VOUS à travers le 
un le fait de ne 
jonc d’être réservés 
Merci qui ? 


slondès que l'écart a milllampè- 
res, ce qui permet d r à votre 
ordinateur ou automatismi striel 
de recevolr une surtension et donc un 
«plantage» de la machine, ce qu 
jamais agréabie. 

Prenons un exemple courant 
(c'est le cas de le dire) : un orage. Les 
charges électriques qui accompa- 
gnent LA <tteREn La ar des 



















écarts, ble: ncte : 
n ème que vous n'ayez entendu la 
dre. Les créateurs de l'appareil 


yant pensé à tout, il se réarme 
automatiquement au bout de quelques 
secondes. Bien sûr le réarmement est 


temporisabie. Sans cet appareil, votre 
commande numérique ou votre ordi- 
nateur (ou autre) aurait subi un choc 
électrique et serait peut-être même en 
attente d’une visite du réparateur... 

Cet apparell, outre la mise hors 
tension temporisable et la suppression 
des micro-coupures, supprime aussi 
ies risques liés à un défaut de masse. 
Demier avantage : il détecte les 
déphasages entre le primaire et le 
secondaire. 

Oùle placer ? Soit en tête de 
ligne pour protéger toute votre 
installation ; mais dans ce cas, il faudra 
un appareil de forte puissance ; soit en 
amont d'une seule machine, ou d’un 
atelier. Dans ce cas, seule une instal- 
lation sera protégée : chambre froide, 
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commande numérique, équipement 
Informatique... Les prix de ces appa- 
reils : de 6 000 F pour 500 va à 16 000 
F pour 6 000 va. 

lronie du sort, la première instal- 
latlon Importante faite par les frères 
PARRIER, il y a trois ans, était en fait 
la protection d'un onduleur qul, lui- 
même, protégeait le système informa- 
tique d'une mairie. En effet, l’'onduleur 
ne supportait pas les défauts du cou- 
rant du secteur. Au prix des interven- 
tions de maintenance, la régulation du 
courant s’est Vite avérée rentable. 

Si seulement on pouvait avoir ça 
chez sol, soupirez-vous... Et bien ouil 
C'est possible, et pour environ 2 400 
francs. La petite boîte (15 x 20 cm) 
détecte tous les problèmes de courant 
qui pourraient endommager votre 
télévision, réfrigérateur, chaine HI- 
Fl.. et micro-ordinateur. Avez-vous 
pensé à ce qui se passait pendant les 

acances ? Votre congélateur dis- 
avec ies orages d'été ; et un mois 
ous n'avez plus qu'à tout 
t appareil, votre congéla- 
e) est déconnecté 
automatique- 
secondes 


p 3 
jeter. À 
teur (ou ve 


benoant la SU 







avais Oa 8 1e k Our 
pour la fin : l'appareil détectant les 
défauts de courant dès deux milliam- 
pères, cela veut dire que vous (ou votre 
jeune enfant) pouvez mettre un doigt 
dans une prise sans courir de risque | 
Toute l'équipe de TEO afaitletest :une 
extrémité du fil électrique dans la 
bouche, l'autre reliée à une prise 
murale, et l'appareil disjoncte. Vous 
ne sentez rien, tout au plus un petit 
picotement comme lorsque l’on touche 
une pile d'1,5 V avec le bout de la 
langue. 

Les emplois possibles de cet 
appareil sont très nombreux tant au 
niveau industriel que domestique. Cet 
appareil est sans aucun doute en passe 
de changer bien des vies ;etonne doit 
safaible diffusion qu'aux énormesinté- 
rêts financiers auxquels il s'oppose. 
Mais ça c'est une autre histoire (adres- 
ses utiles page 48). 

Amaury D. M. 


REPAIRE 


TOURS DE 





Adaptation à l'écran du célèbre jeu : les tours de Hanoï. 


Trois tours apparaissent avec un certain nornbre (au choix) de disques de tallle différente sur la première tour. Ils doivent 
être transférés sur la trolsième dans le même ordre. Quand on sait qu'on ne peut en prendre qu'un à la fois et qu'on ne 
peut poser un grand disque au-dessous d'un plus petit, on comprend mieux la difficuité du jeu. 

Nombre de disques : de 3 à 20. On peut jouer au clavier ou avec le stylo optique. 

De l'intérêt pour tous les âges grâce aux différents niveaux de difficulté. Le programme est en basic 128 et on accède 


au jeu grâce à la touche D du ciavler (pour TOS). 


5 ! POUR MICRO THOMSON TO 
10 ‘ BASIC 1.0 UNIQUEMENT 


60 ‘Version 3.5 (C) AUGE Eric 20/10/85 
{ 
Wie CLEAR300, &HBGFF, 0 *08 11 87 CLEAR 3 


75 DEFINT I,M,N,T:DERSTR C 

78 ENT-&HB700:GOSUB 7020 

80 ‘INITIALISATION TABLEAUX 

00 PEN 0; (8,20), 1; (20,20), 2; (32,20) 
100 DIM T(21),MIN(3), IC(3) 

110 IC(1)=65: IC(2)=161: IC(3)=257 

120 GOSUB 5300 ‘ TITRE 

130 GOTO 5500 ‘ CHOIX 

140 GOSUB 5700 ? DESSIN DES TOURS 

185 IF ASM=1 THEN 4000 

190 * AFFICHE LES DISQUES DE LA TOUR 1 
200 GOSUB 3000 

210 LOCATEO, 22: COLOR? : PRINT" SELECTIONN 
ER LA TOUR DE DEPART A L'AIDE DU STYLO 
OPTIQUE OU DU CLAVIER ‘; : LOCATEO, 23, 0 
: COLORA 

220 CH="DODOLA" : GOSUB2220 

250 DRP=D 

260 IF MIN(D>=ND+1 THEN CLS:PRINT'IL N 
*Y À PAS DE DISQUE SUR CETTE TOUR": FOR 
1=1T02000: NEXT: GOTO 210 

270 IF D=1 THEN D1=2:D2=3 ELSE IF D=2 
THEN D1=1:D2=8 ELSE D1=1:D2=2 

280 IF MIN(D)>MINCD1) AND MINCD)>MINCD 
2) THEN CLS: PRINT"LE DISQUE SELECTIONN 
E EST LE PLUS GRAND DES DISQUES SUPERI 
EURS" ; : FORI=1T02500: NEXT: CLS: GOTO 210 
285 X=DEP:C="D":GOSUB 3500 
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Eric AUGE 


TOURS DE HANOI 





290 "CHOIX DE LA D'ARRIVEE 

300 COLOR5: CLS: PRINT'SELECTIONNER LA T 

OUR D'ARRIVÉE A L'AIDE DU STYLO OPTIQU 
E OU DU CLAVIER ”; : LOCATEO, 23, 0: COLORA4 

310 CH="RESOSI" : GOSUB 2220 

320 ARR=D 

322 IF ARR=DEP THEN LOCATE 12%XDEP-6, 20 
: PRINT” ”; : GOTO210 

330 IF MINC(DEP)>MINCARR) THEN CLS: PRIN 
T'DISQUE DEPART TROP GRAND"; : FORI=0TO2 
000: NEXT: GOTO300 

331 X=ARR:C=" A": GOSUB 3500 

332 CLS: PRINT'Appuyer sur '#' pour arr 

êter la partie"; 

335 ICPT=ICPT+1:GOSUB 2510 

340 TCMINÇ(DEP))=ARR: MIRCARR)=MINCDEP): 

MINCDEP)=ND+1 

350 FOR I=MINÇCARR)+1 TO SD 

360 IF T(I)=DEP THEN MINCDEP)=I: I=ND 

370 NEXT 

380 GOSUB1010 

405 LOCATE 12XDEP-6, 20: COLOR4, 0: PRINT" 
”;:LOCATE 12XARR-6,20: PRINT” ‘; 

410 FAUX=0 
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420 FOR I=1 TO ND 

430 IF T(I)><3 THEN FAUX=1:I=ND 

440 NEXT 

445 C=INKEYS:IF C="*" THEN IF DEM-0 TH 
EN 400 ELSE IF DEM><3 THEN 860 

450 IF FAUX=-1 AND ASM-0 THEN 210 ELSE 

IF ASM-1 THEN RETURN 

460 CLS:IF ICPT=2"ND-1 THEN PRINT"'C'ES 
T LE MEILLEUR SCORE REALISABLE AVEC": N 
D; "DISQUES" ; : FORI=1T04000: NEXT: GOT0860 
A70 IF ICPT<2"ND+3 THEN PRINT”SCORE HO 
NORABLE" ELSE PRINT"MAUVAIS SCORE" 

480 LOCATE 0,24: PRINT"”FAISABLE EN”:;:2°N 
D-1; "COUPS" ; : LOCATEO, 23, 0: FORI=1T02000 
: NEXT 

490 CLS:PRINT" VOULEZ VOUS UNE DEMONSTK 
ATION O/N ";:C=INPUT$(1): IF C="0" OR C 
="o" THEN CLS: DEM=2: ASM=1: ZZ=ND: CONSOL 
EO, 24: GOSUB5300 : GOSUB5700: CONSOLE22, 24 
: ICPT=0: GOTO 5010 

860 CLS: PRINT'UNE AUTRE PARTIE O/N ":C 
=INPUT$(1):1F C="O* OR C="o" THEN CONS 
OLEO,24:GOTO 120 

890 CONSOLEO, 24 

900 END 

1000 ’EFFACE LE DISQUE DE LA TOUR NUME 
RO X 

1010 1J=1:1T=20-ND 

1015 FOR I=ND TO MIN(ARR) STEP -1 

1020 IF TCI)=DEP THEN 1J=1J+1 

1025 NEXT 

1030 1Y=152-IHXIJ: IX=IC(DEP)-40+ILxX CND 
—MINCARR) ) : IMAX=IC(DEP)+40-ILX(ND-MINC 
ARR)) 

1035 FOR I=ND-1J TO O STEP -1 

1040 LINECIX, IY)-CIMAX, IY),-1: PSET(ICC 
DEP) ,1Y),4:IY=IY-IH 

1045 FOR L=0 TO IT:LINECIX, IY)-CIMAX, I 
Y),2:NEXT 

1050 NEXT 

1053 LINE(CIX, IY>-CIMAX, IY),-1 

1055 LOCATE IC(DEP)/8-1,4:1F MIN(DEP)< 
=ND THEN COLOR5: PRINTMIN(CDEP) ; : COLORA 

ELSE PRINT" " 

1060 ’DEPLACEMENT HORIZONTAL DU DISQUE 
1061 IM=CIMAX-IX)/2: IF ARR>DEP THEN IP 
=1 ELSE IP=-1 

1062 FOR I=IC(DEP) TO IC(ARR) STEP IPX 
2 

1063 PSETCI-IMXIP, IY>,-1:PSET(I+IMKIP, 
1Y),2 

1064 NEXT 

1065 ‘DESSINE LE DISQUE DE LA TOUR NUM 
RO X 

1070 1J=1 

1080 FOR I=ND TO MINCARR) STEP -1 


1090 IF TC(I)=ARR THEN 1[J=1J#1 

1100 NEXT 

1110 IX=ICCARR)-40+ILXCND-MINCARR) ): IM 
AX=ICCARR)+40-ILXCND-MINCARR)) 

1115 LOCATE IC(ARR)/8-1,4:IF MINCARR)< 
ND+1 THEN COLOR5: PRINT MIN(ARR) ; : COLOR 
4 ELSE PRINT" ” 

1122 LINEGIX, IY)-CIMAX, IY>,-1: IY=IY+IH 
1125 FOR L=0 TO IT:LINECIX, [Y)-CIMAX, I 
Y),2:NEXT 

1130 FOR 1=0 TO ND-IJ 

1140 LINECIX, IY)-CIMAX, IY),-1: PSET(IC( 
ARR), IY),4 

1150 IY=1Y+1H 

1160 FOR L=0 TO IT:LINECIX, IY>-CIMAX, I 
Y),2:NEXT 

1170 NEXT 

1180 RETURN 

2000 C="1":PLAY LEFTS (CH, 2) : RETURN 
2010 C="2": PLAY LEFTS (CH, 4) : RETURN 
2020 C="3":PLAY CH:RETURN 

2220 C="":C=INKEYS:L=0: INPEN I,L 

2230 IF L>0 THEN ONPEN GOSUB 2000,2010 
,2020 

2240 D=VAL(C):IF D>3 OR D1 THEN 2220 
2250 RETURN 

2500 ‘AFFICHE LE NB DE COUPS 

2510 LOCATES8-LEN(STRS (ICPT)), 1: COLORO 
,6: PRINT ICPT:COLORA, 0: LOCATEZ3, 0, 0: RE 
TURN 

2900 ’ AFFICHE LES DISQUES DE LA TOUR 1 
3000 IH=INT(100/ND) : IL=INT(40/ND) : X=1: 
IX=25 
3001 
3002 
3005 
3010 
3020 
3030 
3040 
3050 
4 
3060 
3070 
3080 
3090 
3100 
3110 
3120 


FOR 1=1 TO ND:T(I)=1:NEXT 
MIN(1)=1: MINC2)=ND+1: MIN(3)=ND+1 
MAX=70: IY=152-IH 

FOR I=ND TO 1 STEP -1 

LINECIX, IY)-CIX+MAX, IY),2 
IX=1X+IL:MAX=MAX-2%IL: 1Y=1Y-IH 
NEXT 

LOCATE 8, 4:COLOR5: PRINT "1" :COLOR 


RETURN 

*EFFACE ET REDESSINE LA TOUR 3 
BOXF(217,40)-(297, 152) ,-1 

ICPT=0: LOCATE 32,4:PRINT" ” 
BOXF(240,0)-(319, 16),-1 
LINE(257,40)-(257, 152), 4 
BOXF(217, 152)-(297, 153) ,4 

3130 RETURN 

"3500 LOCATE 12xX-6, 20: COLOR?, 1: PRINT C 
;: LOCATE 0,23, 0: COLORA4, 0 

3510 RETURN 

4000 DEM=1:2Z=2 

4020 ZZ=ZZ+1: IF ZZ<21 THEN5010 ELSE 89 


| O 
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5000 ’ S/P LANCE ASH 

5010 CLS:C=INREYS: IF C="*x" AND DEM)<3 

THEN 860 ELSEPRINT" DEMONSTRATION 

AVEC";ZZ; DISQUES":IF DEM<3 THEN PRIN 
T" ‘*X' pour arrêter la démonstration" 


, 

5020 ND=-ZZ:GOSUB 3000 

5040 ‘ INITIALISATION ASX 

5050 POKE &HBFFF, ZZ 

5060 EXEC ENT 

5070 DEP-PEEK (&HBFFE) : ARR=PEEK (&HBFFD) 
5075 X=DEP:C="D":COSUB 3500 

5076 X=ARR:C="A":GOSUB 3500 

5080 GOSUB 335 

5090 IF FAUX=1 THEN EXEC ENT+&H44 : COTO 
5070 

5100 IF DEM=1 THEN FORI=1T01500: NEXT:G 
OSUB 3080:GOT0 4020 

5110 IF DEM=3 THEN FORI=1T01500: NEXT:G 

OT06000 

5120 GOTO 860 

5290 ! TITRE 

5300 CONSOLEO, 24: SCRBENS, 0, 0: CLS: ATTRB 
1, 1: LOCATEO, 1: PRINT”TOURS DE HANOI" : AT 

TRBO, 0: COLOR4 

5310 RETURN 

5490 ? PRESENTATION 

5500 CONSOLE22, 24: CLS: ASM=0: DEM=0: ICPT 

=0 

5510 CLS:PRINT'NOMBRE DE DISQUES (3 à 

20)":PRINT'"’R' POUR CONNAITRE LES REGL 

ES DU JEU” :PRINT"O0 POUR UNE DEMONSTRAT 
ION "; 

5520 C=INPUTS (1) 

5530 IF C="0" THEN ND=20: ASM=1: CLS: GOT 

O 140 

5540 IF C="R" OR C="r" THEN GOTO 6000 

5550 IF C»"2" AND C<”:” THEN ND=VAL(C) 
: CLS: GOTO140 

5560 IF NOT(C="1" OR C="2") THEN 5510 

5570 PRINT C; : ND=10XVAL(C) 

5580 C=INPUTS(1): IF NOTCC>"/” AND C<': 
») THEN 5580 

5590 ND=ND+VAL(C): IF ND>20 THEN 5510 

5600 CLS:GOTO140 

5690 ‘DESSIN DES TOURS 

5700 LINE(65,49)-(65, 152): LINE(161,40) 

-(161,152):LINE(257,49)-(257, 152) 

5710 BOXF(25,152)-(105, 153): BOXF(121, 1 

52)-(201, 153) : BOXF(217,152)-(297, 153) 

5720 DESSIN DES BOITES 

5730 BOX(8,20)-(8,20)"1",5,2:BOX(20, 20 
)-(20,20)"2":BOX(32,20)-(32,20)"3" : LOC 

ATEO, 0, O: COLURA, O 

5740 RETURN 

59900 ‘ REGLES DU JEU 
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6000 CONSOLEO, 24: CLS 
6010 ATTRB1 0: COLOR1: PRINT" 
B" SÉU"” : COLOR4: ATTRB 0, 0 
6020 PRINT:PRINT” Trois tours sont af 
fichées à l'écran.” 
6030 PRINT'La première comporte X disq 
vues." 
6040 PRINT" Ces disques doivent être 
mis sur la troisième tour dans le mâ 
me ordre." 
6050 PRINT" Pour cela il faut utili 
ser la tour intermédiaire (nunéro 2). 
LL] 
6060 PRINT" Il éxiste deux contrainte 
s, 
6070 PRINT: PRINT'”- IL EST IMPOSSIBLE D 
E PLACER UN DISQUE DE COEFFICIENT SUPE 
RIEUR SUR UN AUTRE." 
6080 PRINT”’- ON NE PEUT DEPLACER QU’ UN 
SEUL DISQUE A LA FOIS." 
6090 PRINT:PRINT" Le coefficient du 
disque supérieur d' une tour est af 
fiché au sommet de cette même tour." 
6100 PRINT" Le numéro de la tour est 
affiché en vidéo inverse en dessous 
de ladite tour." 
6110 PRINT: PRINT''D' ------ > démonstra 
tion 
GIZOMPRINTANTN == > pour jouer": ICP 
T=0: LOCATEO, 23, 0 
6130 C=INPUT#(1):IF C="d'" OR C="D" THE 
N 27=3: DEM=3: ASM=1: GOSUB5300: GOSUB5700 
: CONSOLE22, 24: GOTO 5010 ELSE IF NOT(C= 
"j" OR C="J") THEN 6130 
6140 GOSUB 5300: DEM=0:GOTO5500 
7000 ? ASM POUR HANOI 
7020 FOR A=&HB700 TO &HB760 
7030 READ AS$:POKE À, VAL("&H"+A$) 
7040 NEXT 
7050 DATA 34,7F,AE,6A,CE,BP,EF,FF,BR,F 
B 
7060 DATA F6,BF,FF,4F,1F,02 
7070 DATA C6,01,86, 03, 8D, OA, BF,BF, F9 
7080 DATA 35,7P,BE, BP, FO,1F,15 
7090 ‘ HANOI 
7100 DATA 10, BC, 60,76 
7110 DATA 2F,38,36,26,31,3F,40 
7120 DATA 8B, 06, F7,BF,FE,BO,BF,FE 
7130 DATA 8D, EB, B7,BF, FD, F7,BF,FE 
7140 DATA FF,BF, FB,10,BF,BF,F7,1F,15 
7150 ? REPRISE 
7160 DATA 35, 10,FE, BF, FB, 10, BE, BF, F7 
7170 DATA FC,BF, FD,31,3F,50 
7180 DATA CB, 06, B7,BF, FD, FO, BF, FD 
7190 DATA 8D,C3,39,37,26,39 
7200 RETURN 
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Après un programme de gestion voicl le nouveau gagnant du concours de création lancé dans le numéro 16 de TEO. 
Jetez feuilles, crayons ou gommes et improvisez-vous créateurs en basic 128 (TO9...). En effet grâce à ce logiciel, votre 
art passe à l'écran. Pas moins de vingt fonctions pour vous aider: 

Fonction 1 : un crayon pour tracer à l'écran (crayon optique ou souris). 

Fonction 2 : pour faire des lignes d'un point à un autre. 

Fonctions 3 et 4 : pour faire des parailéléplpèdes (pleins ou vides). 

Fonctions 5 et 6 : pour falre des cercles (pleins ou vides). 

Fonction 7 : pour remplir une zone fermée d'une des 16 couleurs. 

Fonction 8 : pour remplir une zone fermée par un motif. 

Fonction 9 : pour faire un point. 

Fonction 10 : pour gommer. 

Fonction 11 : pour changer la couleur du cadre. 

Fonction 12 : pour changer la couleur du fond. 

Fonction 13 : pour passer à l'imprimante. 

Fonction 14 : pour sauvegarder le dessin. 

Fonction 15 : pour changer un dessin sauvegardé. 

Fonction 16 : pour effacer l'écran. 

Fonction 17 : pour créer un motif pour ie remplissage d'une zone fermée. 

Fonction 18 : palette de 16 couieurs prédéfinies. 

Fonction 19 : fin d'utilisation du programme. 

Fonction 20 : pour mélanger le rouge, le vert et le bleu (4 095 couleurs possibles). 

On fait appel à toutes ces fonctions en pointant sur les pictogrammes au bas de l'écran à l'aide du crayon optique ou de 
la souris. Le programme se lance avec "Run Dessin”. 
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Et bien qu'on se le dise «CREATOR: est le grand gagnant du concours du meilleur logiciel du N°18, auquel vous avez 
massivement participé. De nombreux programmes nous sont parvenus, etentreles meilleurs, TEO a désigné «créator». 
Tellement bon que nous nous en sommes servi pour illustrer plusieurs articles. Cherchez bien. Alors n'hésitez pas: 
vous avez du talent, vous avez réalisé un logiciel de qualité et souhaitez le faire sortir de l'ombre. Et blen ce concours 
vous est ouvert. 


Bernard VESLOT 





L'ORÉAL EEE EEE EEREERENES 


* Li 
* AUTEUR B. VESLOT * 
* ; 


FRS PRET EPRE ET EEE EEE EEE TETE 
16 CÉXFEFÉRFERENETIE FER ERREEEREEMETEREEER RATES 

L DESSIN Li 

HASAREEE EEE EEE ER EI EEEEEEREERETEEE 
28 CLS 
30 CLEAR9500,57138,127:DIM CAR(8,8):DIM A#(9088):G 
OSUBIT108:FOR 1=57139 TO S7340:READ A$ :POKET, VAL( 
FEH+AS):NEXTI 
40 DEFGR$(0)=255,128,129,130,134, 134,134, 134:DEFGR 
#01)=134,134,134,134,134,134,134, 134: DEFER$(2)=134 
1134,134,134,134,135,128,255:DEFGR$(3)=255,1,129,6 
5,97,97,97,97:0EFGR$(4)=97,97,97,97,97,97,97,97:DE 
FGRS(52=97,97,97,97,97,225,1,255: "CRAYON 
59 DEFERS(6)=255,128,128,128,128,160,176,152:DEF6R 
$07)=148,134,131,129,128,128,128,128:DEFGR$(8)=128 
:128,128,128,128,128,128,255:DEFGR#(9)=265,1,1,1,1 
11, L'DEFGRS(10)=1,1,1,129,193,97,49,25:DEFGR$C11 
213,5,1,1,1,1,1,285: LIGNE 
60 DEFGR$(12)=255,128,128,159,144,144,144,144:DEFG 
RSC13)=144,144,144,144,144,144,144, 144 DEFGR$(14)= 
144,144,144,144,159,128,128,255:DEF6R$(15)=255, 1,1 
:249,9,9,9,9:DEFGR$(16)=9,9,9,9,9,9,9,9:DEFGR#(17) 
=9,9,9,9,249,1,1,265: "BOITE VIDE 
70 DEFGRS(18)=255,128,128,159;159,159,159,159:DEFG 
R$C192=159,159,159,159,153, 159,157, 159:DEFGRS(Z0)= 
159,159,159,159,159,128,128,255:DCFGR$(21)=285,1,1 
,249,249,249,249, 249 :DEF6R$(22)=249, 249,249, 249,24 
9,249,249,249:DEFGR#(23)=249,249,249,249,249,1,1,2 
55:°B 
80 DEFGR$(24)=255,128,126,128,126,128,129,134:DEFG 
R$(25)=136,144, 144, 160,160, 144,144, 136:DEFGR$(26)= 
134,129,128,128,128,128,128,255:DEFGR$(27)=258, 1,1 
1l:1,128,97:0EF6R$(28)=17,9,9,5,5,9,9,17:DEFGRS( 
29)=97,129,1,1,1,1,1,255 "CERCLE VIDE 
99 DEFGR#(30)=265,128,128,128,128,128,129,135:DEFG 
R$C31)=143,159,159,191,191,159,159, 143: DEF6R$(32)= 
135,129,128,128,128,128,128,255:DEFGRS(33)=255,1,1 
sl:1,129,228:DEFGR$(34)=241,249,249,253,253,245, 
249,241 :DEFGR#(352=226,129,1,1,1,1,1,285: "CERCLE F 
LEIN 
100 DEFGR$(36)=255,128,143,159,159,159,143,143:DEF 
GR$(37)=135,135,135,135,135,135,143,143:DEFGR$(38) 
=189,159,131,131,129,128,128,255:DEFGR$(39)=255,1, 
1,129,225,225,241,249:DEFGRS(40)=249,249, 241, 241,2 
49,249,249,249:DEFGR#(41)=241,225,225,129,1,1,1,25 
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118 DEFGR$(42)=255,128,128,193,138, 149,138, 149: DEF 
6R$(43)=138,133,130,129,130,133,130,133:DEFER$(44) 
=138,133,138,149,138,128,128,255:DEFGR$(45)=255,1, 
1,81,169,81,169,81 :DEFGRS(46)=169,81,169,81,169,E1 
,169,81:DEF6RS(47)=169,81,129,65,129,1,1,255:"TRAN 
E 

126 DEFGR$S(48)=255,128,128,144,130,128,136,12B:DEF 
BRSC49)=128,130,128,128,136,128,128,130:DEFGR#(50) 
=128,132,128,128,128,128,128,2SS:DEFGR$(51)=255,1, 
1,33,1,1,1,65:DEFGR$(52)=9,1,1,1,73,1,1,1:DEFGRS(S 
32=1,17,1,1,129,1,1,255 "POINT FAR POINT 

120 DEFGRS(54)=255,128,128,128,129,130,132,137:DEF 
6R$(55)=137,132, 130, 129,132,158,159, 159: DEFGR#(56) 
=159,159,159,159,159,128,128,2SS:DEFER$(S7)=255,1, 
65,161,49,73,141,217:DEF6R$(58)=241,225,65,129,9,2 
5,249, 249:DEFGRS(59)=249,249, 249,249,249,1,1,255:° 
GOMME 

140 DEFGRS(6)2255,128,128,159,191,191,184,184:DEF 
ERS(GT)=184,1E4,184, 164, 184,184,184,191:DEFGR#(62) 
=191,159,128,153,153,128,128,255:DEFGR$(63)=255,1, 
1,249,253,253,29,29:DEFGR$(64)=29,29,29,29,29,29,2 
9,253:DEF6R$(65)=253,249,1,153,153,1,1,255: "TOUR E 
CRAN 

158 DEFGRS(66)=255, 128, 128,128, 143,159,159,159:DEF 
6R$(67)=159,159,159,159,159,159,159,159:DEFGRS(6E) 
=143,128,128,128,153,153,128,255:DEFGR$(69):255,1, 
1,1,241,249,243,249:DEF6R$(70)=249, 249,249, 249, 245 
,249,249,249:DEFGR$C71)=241,1,1,1,153,193,1,2552'F 
OND E 

166 DEFGR#(72)-255,4,6,16,32,33,1€,12:DEFGR$(73)=1 
2,18,53,80,136,132,155,90:DEFGR$(74)=34,17,9,5,2,1 
,0,255:DEF6R$(75)=255,0,46,72,132,2,1,2:DEFGR$(76) 
=4,8,16,169,64,160,32,144:DEFGR#(77)=16,81,10,44,1 
62,224,126,255:' IMPRIME 

170 DEF6RS(78)=256,126,159,128,128,130,129, 128 .DEF 
6R$(79)=191,183,183,183,176,191,191,191:DEFGR$(88) 
=191,191,164,184,191,191,128,255:DEF6R$(81)=255,1, 
129,129,126,161,193,129:DEFGR$(82)=253,237,237,237 
:13,253,253,253:DEFGR$(83)=253, 253,29, 29,253,253,1 
255: 

186 DEFGR$(84)-255,138,132,143,132,130, 128, 128:D0EF 
6R$(85)=191,183,188,183,176,191,191,191:DEFGR$CEE) 
2191,191,164,164,191,191,128,2S5:DEFGR$(87)=265,1, 
1,129,129,129,129, 129:0EFGR$(88)=253,237,237,237, 1 
3,253,253,253:DEFGR$(89)=253,253,29,29,253,253,1,2 
55: "D 
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190 DEFBRS(9OT=26S:128, 128,143,144,168,164,162:0EF | 


GRSCOTI=I61, 161,162, 164,168,176,159,159:DEFGR$(32) 
=128,183,153,128,128, 128,128,255:DEFGR#(93)=255,1, 
1,241,9,21,37,69:DEF6R$(94)=133,133,69,37,21, 13,24 
9,249: DEFGR$(95)=1,153,153,1,1,1,1,255:"EFFACE L'E 
CRAN 

195 DEFGR$(96)=255,128, 126,134, 137, 136,132, 130 :DEF 
6R$(97)=129,128.128,128,129,131,131,129:DEF6R$(96) 
=128,129,131,131,128, 128,128,255:DEFGR$(99)=255,1, 
1,97,145,17,33,65:DEF6R$(100)=129,1,1,129,193,225, 
225,193:DEFGR$(101)=129,193,225,225,1,1,1,255: "MOT 
IFS 

209 DEFGR$C102)=255,128,131,168, 163,163, 168,161 :DE 
F6R$SC105)=163,167,167,175,164,240,224, 166 DEFGRS&(1 
04)=160,160,163,163, 188,131,126, 25S:DEFGRS(165)=25 
5,1,198,38,17,105,101,5:DEFGRS(106)=161,181,197,53 
193,5,53,53:DEF6R$(107)=5,161,105,17,33,193,1,255: 
*PALE 

219 DEFGR$(108)=255,129,129,129,131,134, 134, 140 :DE 
F6R$(109)=136,164,184,152,136,136,128,129:DEFGRS(1 
10)=131,134,140,152,176,255,128,2S5:DEFGR$SC11 1 )=25 
5,129,129,129,193,65,97,49:DEFGR$C112)=49,25, 25,25 
117,17,1,1DEFGRS(1132=129,193,97,49,25,253,1,255: 
*FONC 

226 DEFGR$(1142=255,2855,195,195,195,195,255,255:DE 
FGR#C115)=1,1,1,25,13,7,3, l'DEFGRS(116)=128,126,12 
8,152,176,224,192,128:'CHDIX COULEURS 

230 DEFGRS(117)=255,128,128,128,128,128,128,128:DE 
F6R$C1182=128,128,128,126,126,128,128,128:0EFGR$(1 
192=128,126,128,128,128,126,128,285:DEFGR$(120)=25 
SU, DEFGRS(121)=1,1,1,1,1,1,1,1'DEFGRS 
(122221,1,1,1,1,1,1,285 

248 DEF6RS(123)=65,170,65, 170,85, 170,85, 170 

300 G=-7:K=4:CLS:SCREENS, 6,6: GOSUB1 000 

508 INPENX,Y:INMOUSEX , Y 

S18 IFXC1 DRY<ITHENSOO 

520 AI=POINT(X,Y)21F AICOTHENAI=K 

530 CONSOLE, , 4: FORD=1T02:PSET(X, VI ,AL:PSET(X#1,Y), 
AL:PSETCX-1,Y),AT!PSET(X, Y+1),AT:PSET(X,V-1),AT FD 
RI=1 TOTO:NEXTI:NEXTO CONSOLE, , 6 

550 IF MIRIG(6) THEN INPUTOUSEX, V : GOSUB588 

569 IF PTRIG THEN INPUTPENX, V:GDSUBS5E0 

570 GOTO506 

569 IF Y<I76THEN6SO 

600 IFX816)16ANDX@16< 18ANOY>176THENIFFC=1THENFC=8E 
LSEFC=1 

618 IFX@I6>17ANDY>176AND FC=OTHENEXECERES2D 

620 IFX@16>17ANDY}176AND FC=1THENT0500 

640 IFFC-GTHENTOO8ELSEIFFC=1THEN1 260 

650 ON F+160701500,2000,2500,3000,3500,4080,4500,5 
000,5500,5600,6000,6500,7000,7500,8090,8500, 9009 
660 GDTD520 

1900 P=0:FDRI=8 TO35 

1085 1F 162=XC16THENCOLOR, 15ELSECOLOR4, 6 

1818 LOCATEL, 22,6: PRINTGRS(P}; :LOCATET, 23,0: PRINTE 
R$CP+1); :LOCATEI, 24,0: PRINTGRS(P+2) ; :P=P+3 

1830 NEXTI:F=XÈTE 


1940 ATTRBI,0:COLDRA4, 6 :LOCATE36,22,0:PRINT"F"; :LOC 
ATE36, 23,0 :PRIRT"I"; :LOCATES6, 24,6: PRINT"N"; :ATTRE 
0,0:BDX(268,176)-(304,199),4 

1858 RETURN 

1288 LHENHNRRHNR CHOIX DES COULEURS ERHNENUNRN 
1205 IFX@16=16THEN1C000 

1218 FORI=0TDIS 

1229 IF I=X@16 THEN K=I:COLDRO,7:LOCATEL#2,22,0:PR 
INTGR$C115)+GR$(116); ELSE COLORI,6:LOCATE1#2,22,0 
PRINT” ?; 

1236 ATTRBI, 1 COLORT,6:LDCATET#2,24,0:PRINTGRS(1 14 
}; :ATTRBO,0 

1248 NEXTI: COLOR4,6 :LOCATE32,22:PRINTGR#C 117); :COL 
OR4, 2: LOCATE32,23, 0: PRINTGRS$(118); :COLDR4, 6: LOCATE 
32,24,@:PRINTGRS( 119); :COLOR4, l'LOCATE33,22:PRINTG 
R$C120) ; : COLDRA,6: LOCATE33,23: PRINTGRS (121 ); : COLOR 
6,4:LOCATE33,24:PRINTGRS(122); 

1259 COLOR4,6:LOCATE34,22, 0: PRINTGRS(108)+GR#C1 11) 
3 :LOCATES4, 23,0 PRINTGRS(109)+GR$(112); :LOCATE34, 2 
4,9:PRINTGRS(110)+6R8( 113); 

1255 ATTRBI,6:COLDR4,6:LOCATE36,22,0:PRINT"A"; :LOC 
ATE36,23,0:PRINT"B"; :LOCATES6, 24,0 :PRINT"C"; :ATTRE 
6,0:B0X(288,176)-(384,199),4 

1260 RETURN 

1500 "DESSIN 

1510 INPENX, Y: INMOUSEX, Y 

1528 IFX<1 ORV{ITHEN5O8 

1530 A1=PDINTOX, V2: A2=POINT(X#1,Y) SAS=POINT(N-1, Y) 
SAS=POINT OK, +1) 2 AS=PDINT(X, Y-1) 

1540 IF MTRIG(O)=1 THENAI=K 

1545 IF PTRIG THEN AI=K ELSE E1=0:G60T0530 

1550 IF El=0 THEN PSET(X,Y),K°E1=1:XX=X:YY=Y: GOT] 
518 

1560 1F El=1 THEN LINECXX,YY)-CX,Y),K:XX=X:YY=Y:GD 
01518 

2000 '#HFFHEFERRRREREELIGNESRRERREENREAREN 

2018 IFEI=1THENBEEP:LINECXI,YI)-CX,Y),K°E1=0:G0TDS 
O0ELSEE1=1 :BEEP:PSET(X,Y),K:X1=X:V1=Y:G0TD500 

2500 'HHFATEENHFELMEDITES VIDESYARHEREENNAYEES 
2510 1FEI=0THEN2530ELSEBEEP:BDXCK1,Y1)-CX,Y),K:E1= 
C 

2520 IFPTRG=OTHENSOOELSE2520 

2525 IFSTRIG(1)=OTHENSOPELSE2525 

2530 BEEP:EI=1:PSETCX, Y),KXI=XSYI=Y 

2540 IFPTRIG=OTHEN500 ELSE2540 

2559 IFSTRIG(I)=OTHENSOQELSE2550 

2568 El=1:PSET(X, V),K 

2578 IFPTRIG=OTHENS06 ELSE2576 

3000 "#HKFÉTATEFHEEBOITES PLEINESYESREEREREREE 
3610 IFEI=6THEN3030ELSEBEEP:BOXF(X1,Y1)-CX,Y),K:E 
= 

3020 IFPTRG=OTHENSOGELSE 3029 

3925 IFSTRIG(1)=OTHENSOPELSE3025 

3030 BEEP:EI=I:PSET(X, Y),K:K1=XYIEY 

3040 IFPTRIG=OTHENSO ELSE3040 

3056 IFSTRIG{1)=OTHENSOSELSE3050 

3060 E1=1:PSET(K,V),K 
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3070 IFPTRIG-OTHENS00 ELSE3078 

3590 "EFÉELELIX CERCLES VIDES ÉRÉFSEEXYEFES 

3510 IFEI=6THEN3S30ELSEBEEP 

3511 IF K1DX THEN X=X1-X ELSE X=X-K1 

3513 IF YI)V THEN V=VI-Y ELSE Y=Y-Y] 

3514 IF X)Y THEN R=X ELSE R=Y 

3526 CIRCLECX1,V1),R,K:E1=0:GDT0500 

3530 BEEF:ET=1:PSET(X, V),KiXI=K I YIEY 

3540 GOTO596 

4000 "HEFEFKEIE CERCLES PLEINS HYFKÉEEHINEEE 
4910 IFE1=6THENAO7GELSEEEEP 

4026 IF X1DX THEN K=XI-X ELSE K=X-K1 

4056 IF Y1)Y THEN Y=YI-Y ELSE Y=Y-Y1 

4058 IF Y>Y THEN R=K ELSE R=Y 

4060 CIRCLEF(KI,VI),R,K:E1=0:G60TD508 

4076 BEEP:EI=H:PSETCX,Y),K:K1=X:VIEY 

4686 GOTOSEE 

A5OÙ *AAAHENCOUNRTAGENT* "ARR RAM 

451€ PAINT(X,Y),K:G0T05e0 

5000 "EMBRANENAMMRANNE MOIRE HAMRHANNANERSERE 

5010 FATTERNGRS(123) :PAINT(X, Y),K:PATTERNI27 : GOTOS 
oû 

569 '“nmmvnnnx POINTS "rnmunnnnnnann 

5510 EEEF:PSET(X,Y),K:G0T050€ 

SÉÔQ '======22222=22=57 GOMME ===22s2222s22s 

5646 IF MTRIG(D)=1 THENPSETCX, Y),G:PSET(X+1,Y),G:P 
SET(X,V+1),6:6DT0500 

5645 IF FTRIG THEN PSET(X,Y),G:PSETC+1,Y),G:PSET( 
X,Y+1),6: 6010508 

5650 6070508 

6000 *HA#H#RMAMANE TOUR DE L'ECRAN BR#RMURENERER 
6019 CONSDLEG,21 :SCREEN, ,K: GOTD598 

6500 HHARBENENBRE FOND DE L'ECRAN ÉRÉBBBRERE 
6519 CONSOLE, 21 :SCREEN,K:6=K-{KY2)-1 : G0TU508 
7000 "HEMHRMERANNR COPIE IMPRIMANTE HIRRMERER 
1919 EOXF(6,176)-(320,200),-7:LOCATE®, 22,6: CDLORQ: 
PRINT*PR90-048 -042 -562 -609"; :LOCATES, 24,0 :PRINT 
*SEIKOSHA-EPSON-NTEO PC; :LOCATE10, 19,9:BDXF (192,1 
76)-(200,164),-8:B0XF(192,192)-(200, 200),-8 

7020 INPENX,Y:INMOUSEX, Y 

1030 AI=PDINT(X, VI AZ=POINT(K+1, V) AS=POINTOX-1,Y) 
SASEPOINT(X, V+H)SAS=FOINT(X, Y-1) 

7040 PSET(X,V),K:PSETCX+1,Y),K:PSET(N-1,Y),K:PSETC 
X,Y+D,K:PSETCX,Y-1),K:FORI=1 TOIG:NEXTI PSET(X, Y) 
AR: PSET(XH,V),A2:PSET(X-1,Y),A3PSET(X,Y+1),A4:P 
SETCX,Y-1),85 

7056 IF MTRIG(9) THEN IMNFUTMOUSEX, Y:60107870 

7060 IF PTRIG THEN INPUTPENX, Y:GOSUE7670ELSE7020 
1070 IFY>176ANDY{I84 THEN7096 

7080 IFY>1S2ANDY<299 THEN7189 ELSE GOTD508 

1990 BOXF(9,176)-(320,260),-7 :SCREENPRINT : GOSUB108 
0: G0T0500 

7160 BOXF(6,176)-(320,206),-7:EXEC57139:G60SUB1908: 
60T0599 

7500 ?’“" MISE DU DESSIN SUR DISQUETTE *” 

1518 CONSOLES, 0:B0XF(9,176)-(320,208),-7:COLCRO:LD 
CATE2,23: INPUT"NOM OU DESSIN" ;N$:COLGRK, 6 
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1520 GET(9,8)-(39,21),A#(9000) 

1530 SAVEPNS+" .HAP",A%(9000) 

7540 OPEN "D", #H1,N$+".CFG":FORI=0 TOIS:PA=PALETTE( 
DJSURITEN#, PAINENT I: CLOSE#] 

7568 GOSUB1889;G0T0598 

6008 ‘"" MISE OU DESSIN SUR ECRAN *" 

E605 ON ERROR GDTO8868 

£018 BOKF(,176)-(329,200),-7:LOCATEO,0'2D1R"0: .HAP 
*:COLORG:LOCATEZ, 23: INPUT*NDM OU DESSIN"; NS :COLORK 
18 

S020 LOADPN$+" MAP", A#C9808) :CLS 

8030 PUT(9,8)-(39,21),A%(9000) 

8048 OPEN"I",#I,N$+".CFG" :FDRI=0TO1S: INPUTHI,PA:P 
ALETTEI,PA:NEXTI :CLOSE# 

6050 GOSUB1999:G0TD590 

6060 BOXF(8,176)-(320,260),-7:LOCATES, 22: PRINT" PAS 
DE FICHIER ";N$;:LOCATEG,23: PRINT" VERIFIER VOTRE 
DISQUETTE"; :FOR AT=1 T02008:REXTAT: GOSUE1008 :RESUR 
E5è0 

8500 ‘ EHFLENIEFE EFFACER L'ECRAN LÉXETENEEKET 
E516 CONSOLES, 21 :CLS:G60TO500 

9009 ‘""** CREER UN HOTIF """* 

910 IF E1=0 THENGET(9,0)-(39,21),4%(9000) : CONSOLE 
0,24:CLS:E1=1 ELSE9060 

9020 SCREEN,6,6:CLS 

S030 KI=48:MA=175:TF=1 

9648 PRINTTAB(S) "DESSIN D'UN MOTIF" 

9058 1FTF<STHENGOSUB9288ELSE9260 

9066 IF MIRIG(O) THEN 9980 

9676 IF PTRIG THEN 9080 ELSE500 

980 IFX=-1 THEN9660 

9090 IFX>178 ANDX<184 ANDY>16ANDYC24THENTF=TF#1 : GD 
T09050 

9100 IFX>170ANDX<1B4ANDV) 32ANDYC48THEN9260 

9119 IF XDMI AND X<MA AND VOMI AND Y€HA THEN3148 
9120 1FX>280ANDY) 1 ZBTHEN9248 

9130 GOTDS060 

9149 POINT VISE 

9150 CEINT((X-MI)/16)#1 

9160 L=INT((Y-MI)/16)+1 

9178 IFCARCC,L)=1THENS060 

9180 CAR(C,L)=1 

9138 BOXF(MI+16(C-1),MI+16#(L-1))-CHI+16XC, MI+I6Y 
L) 

9298 NL(LI=NL(L)+2*(8-C) 

9218 DEFGRSC1224TF )=#NLC1),NLCZ), NL (CS), NLC4),NL(S) 
NLC6),NL(7),NL(8) 

9220 LOCATE32+TF, 12: PRINTGR$(122+TF) 

9230 60TOS860 

9240 FORC=1TD8:FORL=1T08:CAR(C,L)=0:NL(C)=0:NEXTL; 
NEXTC 

325 LOCATES,2:COLDRO,3:PRINT'TOUCHE F";TF+1:BOXF( 


170,16)-(184,24),-4:LOCATES,4'PRINT"RETOUR DESSIN" 
:BOXF(170,32)-(184,40),-4:COLDRO, 6: 60TUS00 


9268 PUT(0,8)-(39,21),A%(9008) E1=0 :COLOR4 , 6; GDSUE 
1000: 6070506 
9278 LINECHISI6X1,N1)-CHI+I6KI, FA) 
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9289 ‘ TRACE DE LA GRILLE, 

9290 BOXFCMI,ML)-CKA, NA), -4 

9300 FOR 1=0 TD8 

9319 LINECHI,MI+I6#1)-(MA,NIFIGÈT) 

9320 LINECMI+I6XI,NI)-CMI+IBHI, HA) 

9330 NEXT I 

9340 BOXF(280,128)-(320,168),-4 

9350 LOCATE36, 14,0 :PRINT'FIN" 

9360 LOCATE?5,8:PRINT*CARACTERE" 

9870 RETURN 

10009 'HHKAAHAN MELANGE DES COULEURS R#ARHAEX 

16618 BOXF(0,176)-(320,268),-7:FDR I=12TD 196 STEP 
72 

18828 BOXF(I,177)-(1+32,199),-8 

10930 NEXTI 

10046 LOCATE1, 23,8: COLDRG, 7: PRINT"ROUGE"; :LOCATE16 
123,0: PRIAT'VERT"; :LOCATE1, 23,6: PRINT"ELEU"; :BDXF 
(280,176)-(288,199),-8:LOCATE30,28,0:PRINT'FIN-)"; 

10050 FA=PALETTE(K): IFPAÏZS6 THENE=PAR256 :PA=PA-EX 

256 ELSEB=0 

10868 IF PA)I6 THEN V=PARIG:PA=PA-VRIGELSEV=0 
190706 IF PA)6 THEN R=FA ELSER=Q 

18068 LOCATE2,24,0:PRINTUSING"HN";R; :LOCATET1,24,0 
:PRINTUSING"##";V; :LOCATEZ0,24,0: PRINTUSING"#8";B; 
:LOCATEO, 21 

10090 INFENX,Y: INMDUSEX,Y:IF XCIDRYCITHEN 10089 

18100 AI=POINTOX, Y):A2=POINT(K+1,Y):AS=POINT(X-1,Y 
J'A4=POINTEX, V+1) AS=POIRT(X, Y-1) 

10110 PSETCX,Y),0:PSET(X+#1,Y),0:PSET(X-1,Y),0:PSET 
CX,Y+#1),0:PSETCX,Y-1),8:FDRI=1 TOIO:NEXTI:PSET(X,Y 
J,AL:PSETOX#I,Y),A2:PSET(K-1,Y),AS:PSET(X, V+1), A4: 

PSETCX,Y-1),45 

18120 IF MTRIG(O) THEN INPUTMOUSEX, Y:GOT019156 
10130.IF PTRIG THEN INFUTPENX, Y:GDTG19150 

10148 GOTD16896 

10150 BEEP:IFX)0 AND X<44ANDY>176 THENR=R#I:IFRDIS 
THEN R=0:LOCATEZ, 24,6 :PRINTUSING"#H";R; :ELSE LOCA 
TE2,24,0:FRINTUSING"HE"R, 

10166 IFX>80 AND KCTIZAND V>176 THENV=V#I:IF V315 
THEN V=0:LOCATET, 24,0: PRINTUSING"#R" ; V'ELSELOCATE 
11,24,0:PRINTUSING"#R";V; 

19178 IFX>166 ANDX{I92AND Y>176 THEN B=B+1:IF B>15 
THEN B=0:LOCATE20, 24,0: PRINTUS ING"##" ;B;ELSELDCAT 
E20,24,0:PRINTUSING"##";B; 

18180 PALETTEK,R+(VK16)+(B#256):LOCATE2S, 23, 0:PRIN 
TUSING" HAN" R+(VEI6)+(BK256); 

18190 BOXF(286,176)-(310,192),K 

19200 IFX»272 AND Y>176 THENS8 

16218 GOTD10148 

10580 FRRNERRENEEN ONE CARACTERE" NPntesnnonm 
10510 FCAR=K:FOND=6-6-6-1 

16526 CONSOLE22,24;BOXF(8,176)-(320,200),-7:LOCATE 
2,22,0:PRINT"DOUBLE LARGEUR(1/0)*; :A$=INPUT#C1):L= 
VALCAS):LOCATEZ, 24,0: PRINT"DOUBLE HAUTEUR(1/0)";: 
$=INPUTS(1):H=VAL(AS) 

10530 BOXF(0,176)-(320,208),-7:LOCATEO,22,1:PRINT" 

RETOUR PICTOGRAMMES APPUYEZ SUR STDP” 


10548 LOCATER, 23:PRINT"POUR CHANGER LA TAILLE AFPU 
YEZ SUR F6"; :LOCATEO, 24:PRINT"COULEUR FORME= F7": : 
LOCATEZ4,24:PRINT"FOND= F8"; :ATTRBL,H:CONSOLEO, 24 
18556 LOCATE19.18, 1: COLORFCAR, FOND 

10560 AS=INFUT#(1} 

19576 IF AS=CHR$(2} THENL=0:H=0:ATTREO, 6: GOSUB 1268 
: 607568 

16560 IF AS=CHRS(143) THENATTRBE, 0: GOT 10570 
18590 IF A$=CHRS(150)THENGOSUB10676 : BOTOI 0558 
16600 IF AS=CHRSUIST)THENGOSUB10766 6070145350 L 
18610 IFAS=CHRSCTAA)THENFRINTGRS( 123); :60T010560 
10620 IFAS=CHR$C145)THENPRINTGRS( 124); : GOTCI6866 
18658 IFA$=CHRS(I46)THENPRINTGRS( 125); : GOTD10569 
10648 IFAS=CHASUI47 )THENFRINTGRS( 126); : 6070160556 
10650 PRINTAS; 

1869 60TU10568 

10670 GD£UB1200 

16660 INFENX,Y: INHDUSEX,Y 

10658 IFXCI DRYCITHEN10680 

16708 AI=POINTÉX, VIS IF ATKOTHENAI=K 

19718 CONSOLE, ,4:FORD=1T02:PSET(X,Y), AT :PSET(X+1,Y 
},AL:PSETCX-1,Y),AT:PSET(X, +1), AL: PSET(X, Y-1), A1: 
FORI=T TOIO:NEXTI:NEXTD: CONSOLE, ,9 

10720 IF MIRIG(O) THEN INPUTMOUSEX, Y:G0TD16759 
16730 IF PTRIG THEN INPUTPENK, Y:GDTO10750 

10748 GOTD18668 

10750 FCAR=K@IB RETURN 

10760 GUSU51200 

10770 INPENX, Y: INMOUSEX, Y 

187E8 IFKCI DRYCITHEN10779 

10790 AI=POINT(X,V):IF AICOTHENAI=K 

18680 CONSOLE, ,4:FORD=1T02:PSET(X,Y) ,AT:PSET(X+1,Y 
J,AL:PSET(X-1,Y),ATSPSETCX,Y+1),AL:PSETOX, Y-1), A1: 
FORI=1 TOIO:NEXTI:NEXTD: CONSOLE, ,6 

19818 IF MTRIG(O) THEN INPUTMOUSEX, Y:G0TD1 6848 
10820 IF PTRIG THEN INPUTPENX,Y:G0T010840 

10830 GDTO18778 

16648 FOND=X@I6 RETURN 

11080 DATA34,36,6E,3F,D6,AF,6D,09,C1,10,8E,5F,16,6 
F,60,00,6E,86,40,87,60,2E,BD,E8,12,C6, ÎB,BD,EE, 12, 
C6,18,E0,E8,12,86,08,B7,60,2B,B0,E8,12,B6,E7,C3,8A 
:01,87,E7,C3,C6,1B,BD,E8,12,C6,4B,BD,E8,12,C6,60,8 
D,E6,12,C6,01,E0,E8,12,86,20,5F,ED 

11919 DATAES,12,48,26,FA,1F,21,A6,84,5F,6D,8C, 74,2 
7,04,49,49,49,45,49,25,0B,49,25,0C,49,25,0D,49,25, 
0E,20,0E,C6,C0,20,F1,CB,30,20,F0,CB,0C,20,EF,CB,03 
:BD,E6,12,ED,E8,12,30,88,08,AC,BC,44,26,CA,C6,0D,B 


0) 

11020 DATAES, 12,C6,1B,BD,E8,12,C6,33,BD,E8,12,C6,1 1 
8,B0,E8,12,C6,08,8D,68,12,86,10,57,60,28,BD,E8,12, 
60,60C,28,26,06,6C,8C,1B,16,FF,50,31,21,19,6C,5F,48 a 


:27,06,6C,80,0C,16,FF,4B,35,36,39,FF,FF,FF,FF,FF 
11100 SCREEN4,4,6:E0X(2,2)-(37,22)"#",3 

11310 LOCATEI2, 12,8:ATIRBI, L'PRINT'DESSIN" :ATTREO, 
@:COLDRO, 3:LOCATETR,16:PRINT"AUTEUR B. VESLOT":COL 
OR4,6 

11128 PLAY"DOREREMIFAFAMIREL 9600" : RETURN 
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On éprouve toujours le même Intérêt pour les jeux de cartes. Voici l'occasion de jouer sur votre TO préféré pourvu 
qu'il soit munl du Basic 128 (donc de TO-70 à TO9). Cette fois, il s'agit du 21. Les règles en sont simples et, en tout cas, 
incluses dans le programme. Vous disposez de 10 000 $ au départ. A vous de faire grimper cette cagnotte. 





10 t MNNOMOM NE MEME LUN DE NE DE DE DE De DE DE D DE DE DE EE DE He 
20 t L 3 * 
30 f * LE VINGT ET UN # 
LT) t x * 
50 L ” par Olivier ANDRE  * 
ÉD ?* + 

70 ‘  *pour M06, TO8, TO9, TO9+* 
80 ù # et MO5 % 
90 ' #% # 
100 ?*  * pour 07 et 107/70, * 
110 ‘  * sans B128, se limiter * 
120N * aux 8 couleurs de base * 
130 t x * 
140 U HOMME MEME DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE LE DE DE 
150 


160 ‘ INITIALISATION 
170 CLS: SCREENO, 10,10: 
LOCATEO,0,0 
180 CLEAR,,50: DEFSNGA-Z: 
DIMC(104) 
190 GOSUB1130 
200 FORI=0TO103STEP13 
210 FORK=0OTO12 
220 J=I+K:C(J)=INT(J/26+1)+ 
(K+2)/100 
230 NEXTK, I 
240 N=103:S=10000 
250 ‘ MELANGE 
260 AS=INKEYS 
270 
LOCATEO,5,0:PRINT" Appuyez 
sur une touche pour 
arrêter 
de battre les cartes" 
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280 
A=RND*103 : B=RND*103:D=C(A) : 

C(A)=C(B) :C(B)=D:IFX=20THENPLAY 
*O1L2DOREMIFA" :X=0 

290 X=X+1:IFINKEYS$S=""THEN280 

300 ‘ JEU 

310 CLS:LOCATE, 21,0:COLORO: 

PRINT"CREDIT:";S;"$" 

320 LOCATE1,23: INPUT"MISE:" ,M 

330 IF M<10 
RM>ORMC>INT(M)THEN LINE 
(0,23)-(39,23)" ":GOTO0320 

340 J (0)=C (N):3 (1)=C 
(N-1):B (0)= C (N-2): B 
(1)=C (N-3): N=N-4 

350 NBB=2: NBJ=2: C=J(0): 
X=1: Y=2: GOSUB4H60: C=J(1): 
X=2: GOSUB460 

360 X=1: Y=1: GOSUBA5O: X=2: 
GOSUB450 

370 S0=0:FORI=1TONBJ 

380 C=J(I-1): GOSUB610: 
SO=S0+V: NEXTI 

390 IFSO>21THEN 670 


OO IFNBJ<5THEN 

LOCATE25 ,21,0: 
PRINT"Voulez-vous": 
LOCATE25,22: PRINT'"'une carte 
2" ELSE770 
410 AS$=INPUTS (1) : 
EOXP(25,21)-(59,22)" %: 
IFA$="N"THEN 770 ELSE 
IFA$<>"O" THEN 400 
420 NBJ=NBJ+1: J(NBJ-1)=C(N): 
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N=N-1 

430 Y=2: X=NBJ: C-J(NBJ-1): 
GOSUB 460: GOTOH60: GOTO370 

LHO ‘ AFFICHAGE 

450 BOXF 
(7*X-6,Y*10-8)-(7*X-3,Y*10-3) 
GR$(0O),1,12: 
PLAY*#L202S0LASI": COLORO, 10: 
RETURN 

460 AS=GR$(INT(C)) 

H7O A=CINT((C-INT(C))*100) 

480 IF C<2.5THENCOU=1ELSECOU=0 

490 IF A<10 THENB$=CHRS$S(A+48) 

500 IF A=10 THENB$ ="10": 
ATTRBO,1 ELSEATTRB1 , 1 

510 IF A=11 THENB$="V"ELSE IF 
A=12 THENB$="D"'ELSE IF A=13 
THENB$="R"ELSE IF A=14 
THENB$ ="A" 

520 BOXF (7*X-6,Y*10-8) 

(7 4-3,Y 10-5) ” Tyrol 

530 LOCATE7*X-5,Y*10-5,0: 
COLORCOU,7: PRINTBS ; : ATTRBO,0 
540 PSET(7*X-6,Y*10-8)A$ 

550 PSET(7*X-3,Y*10-8)AS 

560 PSET(7*X-3,Y*10-3)AS 

570 PSET(7*X-6,Y*10-3)AS$ 

580 PLAY"L202SOLASI" 

590 COLORO, 10 : RETURN 

600 ‘CALCUL DES VALEURS 

610 C=CINT((C-INT(C))*100) 

620 IF C<11 THEN V=C 

630 IF C>10 AND C<14 THEN V=10 
64O IF C=14 THEN V=1 

650 RETURN 

660 ‘ LE JOUEUR DEPASSE 21 
670 X=1: Y=1: C=B(0):GOSUB 460 
680 X=2: C=B(1): GOSUB 460 

690 LOCATE37,15,0: ATTRB1,1: 
PRINT"D"; 

700 SOB=1: S0J=0: GOTO 1050 

710 ‘ LA BANQUE DEPASSE 21 

720 X=1: Y=1: C=B(0):GOSUB 460 

730 X=2: C=B(1): GOSUB 460 

740 LOCATE37,5,0: ATTRB1,1: 
PRINT"D"; 

750 S0B=0: S0J=1: GOTO 1050 

760 ‘ LA BANQUE JOUE 

770 S0=0: FORI=1 TONBB 

780 C=B(I-1): GOSUB610: 
SO=S0+V: NEXTI 

790 IF S0>21 THEN 720 

800 IF S0>16 ORNBB=5 THEN890 
810 FORI=1 TONBB 

820 IF CINT 
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((B(I-1)-INT(B(I-1)))*100)=14 
THEN S0=S0+10 ELSE 840 
830 IF SO<22 AND SO>16THEN 890 
840 NEXTI 
850 NBB=NBB+1: 

B(NBB-1)=C(N) :N=N-1 
860 C=B(NBB-1): Y=1: X=NBB: 
GOSUB 460 
870 GOTO 770 
880 ‘ PERDU OU GAGNE ? 





890 PLAY"L9OP": X=1: Y=1: 
C=B(0): GOSUB 460 

900 X=2: C=B(1): GOSUB 460 

910 S0J=0: FORI=1 TONBJ 

920 C=J(I-1): GOSUB 610: 
SOJ=SOJ+V: NEXTI: IF S0J>11 
THEN 970 

930 FORI=1 TONBJ 

94O IF CINT 
((J(I-1)-INT(J(I-1)))*100)-14 
THEN S0J=S0J+10 ELSE 960 

950 IF S0J>21 THEN S0J=S0J-10 

960 NEXTI 

970 ATTRB1,1: LOCATE 33,15,0: 
PRINT SOJ:; 

980 SOB=0: FORI=1 TONBB 

990 C=B(I-1): GOSUB 610: 
SOB=SOB+V: NEXTI: IF SOB>11 
THEN 1040 

1000 FORI=1 TONBB 

1010 IF CINT 
((B(I-1)-INT(B(I-1)))*100)=14 
THEN SOB-S0B+10 ELSE 1030 

1020 IF SOB>21 THEN SOB-S0B-10 

1030 NEXTI 

1040 ATTRB1,1: LOCATE 33,5,0: 
PRINT SOB; 

1050 ATTRBO,0: IF SOB>SOJ 
THENS=S-M: LOCATE 30,22: 
PRINT'"'Perdu !": PLAY"L5002D0" 

1060 IF SOB<SOJ THENS=S+M: 
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LOCATE 30,22: PRINT"Gagne 
f*: PLAY'"L5SOHDOMIREFASOSILA" 

1070 IF SOB=SO0J THEN LOCATE 
30,22: PRINT"Nul !" 

1080 AS=INPUT$ (1) 

1090 IFS<1 THENCLS: LOCATE 
5,10,0: PRINT"Voulez-vous 
rejouer ?": IF 
INPUT$(1)="N"THEN CLS: 
ENDELSERUN 
1100 IF N>8 THEN 310 
1110 CLS: N=103: GOTO 260 
1120 ‘ CARACTERES REDEFINIS 
1130 DEFGR$(0)=85,34,85,136, 
85,34,85,136 
1140 DEFGR$(1)=0,36,126,126, 
126,60,24,0 
1150 DEFGR$(2)=0,24,60,126, 
126,60,2h4,0 
1160 DEFGR$(3)=0,24,60,60,60, 
24,60,0 
1170 DEFGR$(4)=0,24,24,126, 
126,24,60,0 
1180 ‘ REGLE DU JEU 
1190 ATTRB1, 1: LOCATE6, 1: 


REPAIRE 


PRINT'LE VINGT ET UN": 
ATTRBO,0: LINE(6,2)-(33,2) 
CHRS$ (96) 

1200 PRINT: PRINT: PRINT: 
PRINT" Le 21 se joue avec 2 
jeux de 52 cartes.": 
PRINT 

1210 PRINT" Le but est 
d'epprocher 21 de plus pres 
que la banque sans depasse r 
ce total.":PRINT 

1220 PRINT" les valeurs des 
cartes sont:":PRINT 

1230 PRINT "- 11 ou 1 (au 
choix) pour 1'AS'" . 

1240 PRINT "- 10 pour chacune 
des figures" 

1250 PRINT "- la valeur 
nominale pour les autres" 

1260 AS$S=INKEY$S: PRINT: PRINT: 
PRINT" Appuyez sur une 
touche pour commencer": 

1270 IFINKEY$S="" THENY=RND: 
GOTO 1270 ELSE CLS: RETURN 


LE COMPAS 


DANS L 


EIL 










Vous vous croyez doué pour l'évaluation des surfaces. Testez donc vos compétences avec ce programme. En un 
mot : un cercie plein, de taille aléatoire, se dessine à l'écran avec un triangle à côté ; le but du jeu est de faire grandir 
le triangle avec la touche + et la touche * (multiplie par 1,5) ou de rétrécir celul-ci avec la touche - etia touche / de 
manière à lui donner une surface la plus proche possible de celle du cercle. Pas facile. La marge d'erreur est évaluée en 
pourcentage. L'équipe de TEO n'a jamais été au-dessous de 5 %. A vous de jouer. 
Olivier ANDRE 


DDEDEDE EDEN DE MEME DE DE NE DE DE DE DE DE DE MEN DE NE DE 


10." 

20 t * 

AU" id AIRES 

LO t x 

DO * * par Olivier ANDRE 

60 "  *sur T07/70+Basic 128 
t * 


4 HO + + * 


80 HOMMONNENENDENE NEED NEED DEN HE DE DE DE DE DE DE 
TOUR $S 90 
. 100 CONSOLEO: CLEAR: CLS: 
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REPAIRE 


SCREEN10,0,0: LOCATEO,0,0 

110 INPUT"COMBIEN DE JOUEURS" 
:NB 

120 IF NBC>INT (NB) OR 
NB<1 OR NB>9 THEN100 

130 DIM DIF(NB) ,SC(NB), 

J$ (NB) ,AT(NB) 

140 CLS: FORI=1 TO NB: PRINT 
"NOM DU JOUEUR"I;: INPUT 
JS(I): NEXT 

150 AS=INKEY$: PRINT: 
PRINT"APPUYEZ SUR UNE TOUCHE" 

160 LOCATE, ,0 

170 IFINKEY$=" "THENAZ=RND: 
GOTO0170 

180 CLS:FOR T=1 TO 5 

190 R=INT(RND*40+20) 

200 CIRCLEF(70,70),R,9 

210 AC=3.1416*R*R 

220 CONSOLE 20 

230 FOR I=1 TO NB 

240 CLS: COLOR 12: PRINTJ$(1) 

ft TOUR "t T 

250 H=60+INT(RND*20): PRINT: 
PRINT "MALUS:"SC(I) 

260 L=2*H*SQR(1/3) 

270 LINE (230,5)-(230-L/2,H+5),1° 

280 LINE-(230+L/2,H+5),11 

290 LINE-(230,5),11 

300 AS=INPUTS (1) :H1=H 

310 IFA$="+"THENH=H+1 

320 IFA$="*"THENH=H*1.5 

330 IFA$="-"THENH=H-1 

340 IFA$="/"THENH=H/1.5 

350 IFH>150 THENH=150 

360 IFHK5  THEN-=5 

370 IFA$=CHR$ (13) THEN430 

380 L1=2*H1*SQR(1/3) 

390 LINE (230,5)-(230-L1/2,H1+5) 

-1 


400 LINE-(230+L1/2,H1+5),-1 

410 LINE-(230,5),-1 

420 GOTO260 

430 AT(I)=L*H/2 

44O LINE(230,5)-(230-L/2,H+5),-1 
450 LINE-(230+L/2,H+5)-1 


60 LINE-(230,5),-1 
470 NEXTI 
480 FORI=1TONB 
490 DIF(I)=ABS(AC/AT(I)-1)*100 
500 NEXTI : CLS 
510 H=SQR(AC*SQR(3)) 
520 L=2*H*SQR(1/3) 
530 LINE(230,5)-(230-L/2,H+5),11 1) 
540 LINE-(230+L/2,H+5),11 
550 LINE-(230,5),11 
560 PAINT(230,7),11 L 
570 A$=INPUT$(1) 
580 CONSOLEO: CLS 
590 COLOR2 
600 PRINT"JOUEUR" ; : LOCATE25: 
COLOR1: PRINT"ECART(%)" 
610 FORI=1TONB 
620 COLOR2: LOCATEO, 2*I: 
PRINTJ$ (I); 
630 LOCATE23: COLOR1: 
PRINTUSING ‘ ; ke 
DIF(I); 
640 SC(I)=SC(I)+CINT(DIF(I)) 
650 NEXTI 
660 A$=INPUTS (1) 
670 CLS: NEXTT 
680 SCREENS8 
690 LOCATE1H: PRINT"CLASSEMENT" 


. 700 F=0 


710 FORI=1TONB-1 

720 IF SC(I)>SC(I+1)THEN SWAPSC(I), 
SC(I+1):SWAPJ$(1),J$(I+1):F=1 

730 NEXTI 

740 IFF=1THEN700 

750 FORI=1TONB 

760 LOCATEO, I*2+1:PRINTJ$(I) :; : 
LOCATE30: PRINTUSING"######4" 
SCD) : 

770 LINE(O,I*2+2)-(39,1*2+2) 
CHR$ (96) 

780 NEXTI 

790 PRINT: PRINT 

"VOULEZ-VOUS REJOUER ?" 

800 IFINPUTS (1) {> "N'THENRUN 
810 CLS:SCREENA ,6,6:END 
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REPAIRE 


 MEMOTS 


pour jouer sur les mots... 


Mémoire et rapidité d'esprit vous seront nécessaires pour ces cinq jeux. 
Le premier : Mémot ordre, 10 lettres vous apparaissent 4 secondes, vous devez ensuite les retaper dans le même ordre. 
Un point par lettre. 
Le second : Mémot lettre, 10 lettres vous apparaissent 4 secondes, vous devez ensuite désigner au crayon optique une 
lettre bien définie. 
Mémot mot est le troisième : 10 lettres sont à l'écran puls disparaissent. 4 mots apparaissent. Lequel pouvait-on former 
avec ces 10 lettres ? 
Mémot long : avec 10 lettres, cherchez le mot le plus long possible. 
Mémot point est le dernier : chaque lettre a une valeur (de 2 à 6). Formez un mot valant le plus de points possible. 
Encore un mot : on joue à deux, donc, pas de tricherie possible. 
Fonctionne en basic 128, toume sur MO5, MO6. 
Si ces jeux vous ont enchanté, sachez que l'auteur met à votre disposition cinq autres programmes tout aussi 
passionnants, moyennant petite rémunération (cassette : 99 F ; disquette 8,5 p : 109 F ; listing : 60 F ; mode d'emploi 
et portinclus). Envoyez vos chèques àJ.P. KELLE, 14 rue Thermidor, 80100 ABBE VILLE. En prime, avec les 50 premières 
commandes : 2 jeux gratuits. 

J-P KELLE 


| RAR RERO RERE IL 
EE TR RERLRERS 


SSHENEUNBE 
ICIES D NL 
CIS D 


MOT CORRECT ? (O-N) 


mr 





2 CLS: SCREENO, 0, 4: BOXF CO, 0)-(3 9 RETURN 
19,199): GOSUE 3:GOTO 10 10 ATTRBO, 0: COLOR3, 0: LOCATE?7, 1 
3 FOR I-0 TO 39 ,0:PRINT”Copyright: KELLE JP - 
4 IF I1>29 THEN COLOR I-29 ELSE 1988" ; : ATTRB1, 1: COLORA4 

IF 1>14 THEN COLOR I-14 ELSE 40 CLEAR 2500 
COLOR 1+1 60 FS=CHRS (8) 
5 LINEC8XI,0)-(319-(8X1), 199): 70 FOR I=1 TO 6 

IF 1>25 THEN 7 80 LOCATE 6X%I-3,4,0:PRINT CHRS 
6 LINE(O,8*I)-(319,200-(B8%I)) (127) ; CHRS (127) ; CHRS (10); FS;FS 
7 NEXT I : F$; F$; CHRS (127) ; CHRS (127); 
8 FOR T=1 TO 800:NEXT T:CLS 90 NEXT 1 


29 
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REPAIRE 


100 FOR T=1 TO 20O0:NEXT T 

110 B$=" MEMOTS" : COLOR7, 4 

120 FOR I=1 TO 6 

180 LOCATE 6%1-2,5,0:PRINT MID 
SCBS, 1, 125: FOR X=L TO 8:PLAY"0 
2L5LA'":NEXT X 

140 NEXT I:COLOR7, 0 

150 CLEAR, ,9 

160 DEFGRS(0)2=0,3,7,5,7,6,3,1 

170 DEFGR$S(1)=0,192,224,160,22 
4,96,192,128 

180 DEFGR$(2)=15,31,63,127,239 
, 199,7,7 

190 DEFGRS(3)=240,248,252,254, 
247,227,224,224 

200 DEFGR$S(4)=3,3,7,6,14,12,28 
, 24 

210 DEFGRS(5)=-192,192,224,96,1 
12,48,56,24 

220 DEFGRS(6)=56,48,240,0,0,0, 


230 DEFGRS(7)=28, 12,15, 0,0,0,0 


240 FS$=CHR$ (8) 

270 COLOR7, 0: CONSOLE 8, 19 

280 FOR I=1 TO 3 

290 CES:FOR T=1 TO 200:NEXT T 

300 COLOR2, 0: LOCATE9, 11,0:PRIN 
T GRS(0); GRS(1); CHRS(10); F$S;F$ 
: F8; F8; GRS (2) ; GRS (3) ; CHRS (10); 
F$S:F$; F$; F$; GRS C4) ; GRS (5) ; CHRS 
(10): F$; F$; F6; F$; GRS (6) ; GRS (7) 


310 FOR X=1 TO 10:PLAY'”’O5LA4MI” 
: NEXT X 

820 COLORL: LOCATEZ27, 11, 0: FRINT 
GRS (0) ; GR$S(1) : CHR$S (10); F$; FS; 

F$; F$; GR$S (2) ; GR$ (3) ; CHRS(10);F 
$S;: F$; F$:;: F5; GRS$S (4) ; GRS$ (5) ; CHRS ( 
10): F$;: F$; F$; F$; GRS (6) ; GRS C7); 
330 FOR X=1 TO 20:PLAY'"'O4L4aMI”’ 
: NEXT X 

340 FOR T=1 TO 200:NEXT T 

350 NEXT I:CONSOLEO, 24: ATTREBO, 
[e) 

360 EOX(100,156)-(220,188),7:C 
OLOR13 

370 LOCATE14,20,0:PRINT ”’APPUY 
EZ SUR’ 

380 LOCATE14,22,0:PRINT "UNE 
TOUCHE" ; ; 

390 G$=INKEYS: U=RND: IF G$S=”” T 
HEN 390 

400 CLS:SA=0:SB=0:N=0 

410 A=INT(2XRND) +1:B=2/A:SCREE 


REPAIRE 


NO,0,4:ATTRE1, 1: COLORO, 7 : LOCAT 
E4,5,0:PRINT'" TIRAGE AU SORT 
; : COLOR?7, 0: LOCATES, 12: PRINT'”'QU 
I COMMENCE ?”'; 

411 FOR I=1 TO 6 

412 LOCATE18, 18: COLORB: PRINT G 
RS CO); GRS(1); CHRS(10); FS: FS;FS 
: F5; GRS (2) ; GRS (3); CHRS(10) ; FS; 
F$; F$;: F$; GRS (4) ; GR$ (5) ; CHRS(10 
D: F$S: F$S; F5; F$; GR$ (6); GRS(7);:P 
LAY'"'O5L12MIPFP" 

413 LOCATE18, 18: COLORA: PRINT G 
RS (CO) ; GRSC1) ;, CHR$S (10); F$S; F$S; FS$ 
: F8; GRS (2) ; GRS C3) ; CHRS( 10) ; HS; 
F$; F$; F$; GRS (4) ; GRS (5) ; CHRS (10 
D: FS; F$: F$; F$; GR$S (6) ;, GRS(7);: :P 

LAY''OSL12MIPF" 

414 NEXT I 

416 FOR T=1 TO 1500:NEXT T 

420 CLS:GOTO 850 

450 CONSOLEO,24,0,0:FOR I=1 TO 
8: PLAY”O5L1OD0" : NEXT I 

452 BOXF(154,150)2-(159,199),3 
455 F$=CHRS(8) 

460 ATTRBO, 0: COLORA, 0: LOCATEA, 
20,0:PRINT GRS(0O); GRS (C1); CHRS( 
10): F$; F$; GRS (2) ; GR$S (3) ; CHRS (1 
0): F8; F$; GRS (4) ; GRS (5) ; CHRS(10 
D: F$;, F$; GRS$S (6) ; GRS(7); 

465 COLOR E, 0: LOCATE24,20,0:PR 
INT GR$S(O) ; GR$S (1) ;, CHRS(10):; FS; 
F$; GR$ (2) ; GR$S (3); CHRS(10); F$;F 
$; GR$S (4) ; GR$S (5) ; CHRS (10); F$S; F$ 
: GR$S (6); GRF (7); 

470 ATTRE1, 1: COLOR?7, O0: LOCATE1O 
, 22, 0: PRINTUSING "###"; SA; 

480 LOCATES30,22,0:PRINTUSING 
#4##° ; SB; 

490 RETURN 

500 SCREEN 0, 0, A: ATTRB1, 1: COLO 
R3: LOCATE 20-LEN(AAS),3,0:PRIN 
T AAS;: 

510 PLAY'O2L30DOREMIFASO" 

520 EOXF(0O,48)-(320,64),A 

530 ATTREO, 0: COLOR?7 : LOCATE2, 11 
,0:PRINT BBS; : LOCATEZ, 13, O:PRI 
NT CCS: : LOCATEZ, 15, 0: PRINT DDS$ 
; : LOCATEZ, 17,0: PRINT EES; 

540 COLORO, 12: LOCATES, 22, 0: PRI 
NT * APPUYEZ SUR UNE TOUCHE ; 
550 FOR X=1 TO 20:PLAY"O2LAMI" 


: NEXT X 

560 G$S=INKEYS:U=RND: IF GS$S="" T 
HEN 560 

565 CONSOLEO,24:CLS 

570 RETURN 
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575 DEFGRS(8)-255,295,255,255, 
970,0, 0 

577 COLOR C:ATTRBO, 0 

578 FOR CR=8 TO 36 

579 LOCATE CR,8,0:PRINT GRS(8) 


580 NEXT CR: COLORO, O0 

582 FOR CR=36 TO 8 STEP -1 

583 FOR T=1 TO 700:NEXT T 

564 LOCATE. CR,6, 0: PRENT” ?; 
585 NEXT CR 

586 RETURN 

600 ATTRB1, 1: COLORCB: PLAY''O4L1 
5DOPDO" 

610 FOR I1=8 TO 35 STEP 3 

620 LOCATE I,3,0:PRINT CHR$(12 
FD: 

630 NEXT I 

640 RETURN 

650 H$=''? 

652 FOR X=1 TO 10 

655 C$='"8B8CALSREHGTAMANAPEVLS 


657 V$="4A2E4IAOAUAAZEA4ITAOAU2ZE 
660 V=INT(2XRND)+1: W=2XCINT(11 
XRND) +1) 

670 IF V=1 THEN L$S(X)=MIDS(CCS, 
W,1) ELSE L$CX)=MIDS CVS, W, 1) 
675 H$=-H$+L$(X) 

680 NEXT X 

690 RETURN 

700 ATTRB1, 1: COLORCA, CB 

710 FOR X=1 TO 10 

720 LOCATE 3%XX+5,3,0:PRINT LS( 
No): 

730 NEXT X 

740 RETURN 

750 1F N/2=INTC(N/2) THEN C=A E 
LSE C=B 

760 ATTRBO, 0: COLOR C, 0: LOCATE4 
, 7,0: PRINT GRS(0);GRSC1) ; CHRS( 
10):F$; F5; GRS (2) ; GR$ C3) ; CHRS (1 
0); F8; F5; GRS (4) ; GRS (5) ; CHRS (10 
D): F$; F8; GR$S (6) ; GRS C7) ; : N=N+I 
770 RETURN 

800 FOR VV=1 TO 10: PLAY'O5L6SI 
MiNEXT VV:ZZS$S="## PTS": ZYS="# 
# PT”: ATTRB1, 1: COLORC, O0: IF C= 
A THEN LOCATE 2,16,0 ELSE LOCA 
TE 22, 16, 0 

805 IF P>1 THEN PRINTUSING Z28 
; P ELSE PRINTUSING ZYS;P 

810 RETURN 

850 SCREENDO, O0, 4: GOSUB 3 

900 CLS:CA=0:CB=3 
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REPAIRE 


905 AAS="'MEMO ORDRE" 

910 BB$=" VOUS ALLEZ VOIR 10 LE 
TTRES. ” 

920 CC$="'QUAND ELLES SERONT EF 
FACEES 

930 DDS$="VOUS DEVREZ LES RETAP 
ER DANS L’ORDRE." 

940 EE$="”’€( 1 POINT PAR LETTRE 
EXACTE )’ 

960 GOSUB500: GOSUB1000 : GOTO105 
0 

1000 SCREEN?7, 0,3: BOXF(O, 144)—€ 
320,152),3: RETURN 

1050 GOSUB450 

1060 GOSUB600: GOSUB650 : GOSUB7 0 
0 : GOSUB750 

1065 FOR T=1 TO 2200:NEXT T 
1070 GOSUB600:E=1 

1075 COLOR7, 0: LOCATESXE+5,9, 1 
1080 MMS=INKEYS:IF MM$=’"’"” THEN 
1080 

1090 COLDRO, C: LOCATESXE+5,9, O: 
PRINT MMS; 

1110 X=E:IF L$SCX)-MMS THEN COL 
OR CA,CB ELSE COLOR 0,7 

1120 LOCATE3XE+5,3,0:PRINT LS$< 
DC) 

1130 IF MMS<>LS(CX) THEN 1140 
1135 E=E+1:1I1F E<11 THEN 1075 E 
LSE 1150 

1140 PLAY'O5L20DOPSIPS0" 

1150 P=E-1:1F P=O THEN 1170 EL 
SE GOSUB800 

1160 FOR T=1 TO 1000:NEXT T:!F 
C=A THEN SA=SA+P ELSE SB-5B+P 
1170 GOSUB450:FOR T=1 TO 1000: 

NEXT T 

1180 IF N<4 THEN COLORO, O: CONS 

OLEO, 16: CLS: SCREEN?7, 0,8: GOTO10 

50 

1190 CONSOLEO,24:CLS 

1200 CLS:CA=7:CB=4 

1205 AA$S="'MEMO LETTRES" 

1210 BB$="QUAND LES LETTRES SE 

RONT EFFACEES, 

1220 CC$-—"VOUS DEVREZ MONTRER 

LA LETTRE" 

1230 DDS$="”INDIQUEE, ÇCAVEC LE C 

RAYON OPTIQUE)" 

1240 EE$="5 POINTS PAR LETTRE 

EXACTE" 

1250 GOSUB500: GOSUB1000 

1255 FOR H=1 TO 4 

1260 GOSUB450 : GOSUB600 : GOSUB65 
0 : GOSUB700: GOSUB750 

1265 FOR T=1 TO 2200:NEXT T:GO 
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MOS=5 MO6 = 6 TO7 = 7 T07/70 = 7+ TO8 = 8 T09 = 9 


‘ence rence 








































































































































































DU JAMAIS V. 


T09+ = 9+ 























Lt E OK COWBOY 149,00F 
vénement res OK COWBOY 8 99 se 199,00F 
R1643 | OXPHAR 8 9 94 DK |199,00F {| 
12532| BOBO 6 K7 |140,00F | 0945 | OXPHAR 5 6 K& |149,00r 
42543 | BOBO 6 9 94 DK |190,00F | Ko732 | PROHIBITION 8 94] DK |199,00F K 
S z. NO710 | PROHIBITION 6 K7 |149,00F À 
Les Nouveautes NO743 | SAPHIR 8 994 DK |199,00F | 
NO721 | SAPHIR 5 67+8 9 K7 |149,00F | 
42832 | LES ATHLÈTES NO798 | SORTILÈGES 9 DK |199,00F | 
12843 | LES ATHLÈTES NO0821 | SUPER ANDROÏDES 8 994 DK |199,00F | 
42854 | LES ATHLÈTES N0832 | THÈME ASTRAL 9 DK |259,00F | 
NO854 | TNT 8 994 DK |199,00F | 
Les Classiques NO843 | TNT 5 67+8 99 K7 |149,00F | 
de S PN A B0930 | TURLOGH LE RODEUR 8 9 94] DK |246,00F ! 
40254 | AFFAIRE SYDNEY 5 67+8 9 9+ 145,00F B0929 | TURLOGH LE RODEUR 6 K7 |246,00F L 
40265 | AFFAIRE SYDNEY 8 9 941 DK ! 199,00F | NO876 | VAMPIRE 8 994 DK 1199,00F 
10298 | AFFAIRE VERA CRUZ 8 9 9+| DK | 199,00F | N0B65 | VAMPIRE 56789 K7 |149,00F À 
40043 | BIVOUAC 6 K7 |145,00F = À 
10054 | BIVOUAC 8 9 9+| DK | 199,00F Les Ed ucatifs k 
12454 | BOB MORANE CHEVALERIE 6 K7 |199,00F = 
42465 | BOB MORANE CHEVALERIE 8 9 9+| DK | 199,00F IL ÉTAIT UNE FOIS 190,00F N 
12332 | BOB MORANE JUNGLE 6 K7 |199,00F IL ÉTAIT UNE FOIS 150,00F R 
12343 | BOB MORANE JUNGLE 8 9 9+| DK |199,00F SAC À DOS 290,00F À 
12398 | BOB MORANE SCIENCE FICTION | 6 K7 |199,00F N 
12409 | BOB MORANE SCIENCE FICTION 8 94| DK | 199,00F ° [ CPR N 
{0443 | DIEUX DE LA GLISSE 6 KZ |145,00F Les Uti LETTRES B 
10454 | DIEUX DE LA GLISSE 8 9+l K7 |145,00F B 
10465 | DIEUX DE LA GLISSE 8 94! ok | 199,007 | 10003 | ASSBESAS épuisé 9 | DK |300,00F — 
10354 | DIEUX DE LA MER 6 k7 |145,00F | 10005 | COMMERCE 9 9 | DK |SS000P | 
10365 | DIEUX DE LA MER 8 9 94] vk | 199,007 | 10002 | COMPTA 9 9 | DK |350,00F 
10487 | DIETH-PLSTADE | épuisé 8 9 9+| Dk | 199,007 | 10001 | PAIE ? 8 994] DK |350,00F 
10543 | DIEUX DU STADE Il 8 9 9x1 x | 199,007 | N0943 | TELKIT 8 9%] DK |259,00F 
0032 | HMS COBRA 8 9 9+| DK | 249,00F . . 5 
0021 | HMS COBRA s à K7 |249,00F Affaires exceptionnelles 
12110 | IINOGOUD ”: K7 |159,00F 
12121 | IANOGOUD 8 9 9+| DK | 207,00F 1789 73,00F 
10154 | KARATÉ 8 9 9+| DK |199,00F 1789 73,00F 
10332 | LA MINE AUX DIAMANTS 5 67+8 9 |K7 |149,00F AFFAIRE SYDNEY 99,00F 
10343 | LA MINE AUX DIAMANTS 8 9 9+| DK |199,00F AFFAIRE VERA CRUZ 5 73,00F 
10565 | LES PASSAGERS DU VENT 1 7+ 8 K7 |249,00F ASDReiTÉS épuisé 5  7+éK7+ 73,00F 
10554 | LES PASSAGERS DU VENT I 6 K7 |249,00F ASSDESASS 5  7416K7+ 73,00F 
10576 | LES PASSAGERS DU VENT I DK |249,00F DIEUX DU STADE | 5 6 7+H1éK7+ 8 73,00F | 
10598 | LES PASSAGERS DU VENT il DK |249,00F DIEUX DU STADE | 5  7+16K7+ 99,00F k 
10587 | LES PASSAGERS DU VENT If K7 |249,00F DIEUX DU STADE | 5 7+16K7+ 99,00F |! 
0010 | LES RIPOUX DK | 159,00F DIEUX DU STADE Il 7+8 9% 73,00F 
0001 | LES RIPOUX K7 |116,00F DIEUX DU STADE Il 6 73,00F 
0609 | MARCHE À L'OMBRE K7 |145,00F DOSSIER BOERHAAVE 73,00F 
0610| MARCHE À L'OMBRE DK | 198,00F DOSSIER BOERHAAVE 73,00F 
0076 | MEURTRES EN SÉRIE DK | 249,00F DOSSIER BOERHAAVE 99,00F L 
0065 | MEURTRES EN SÉRIE K7 |249,00F DOSSIERBOERHAAVE épuisé 99,00F 
0100 | MEURTRES SUR L'ATLANTIQUE DK | 249,00F ENTROPIE 73,00F 
0087 | MEURTRES SUR L'ATLANTIQUE K7 |249,00F ENTROPIE 73,00F 













MEURTRES SUR L'ATLANTIQUE 249,00F ENTROPIE 






73,00F 





SUR THOMSON 


ATTENTION, stocks limités ! 
















À L'ÉVADÉ DE TAPIOCATRAZ 
0132 | FOOTBALL 

10309 | HÉRITAGE Il 

140310 | HÉRITAGE Il 

N0143 | KARATÉ 

N0165 | KARATÉ 

N0176 | KARATÉ 

N0187 | KARATÉ 

NO198 | KIDKIT 

NO209 | KIDKIT 

NO232 | LA GESTE D'ARTILLAC 
N0O221 | LA GESTE D'ARTILLAC 
NO0243 | LA GESTE D'ARTILLAC 
NO387 | LAS VEGAS 

N0376 | LAS VEGAS 

NO409 | LAS VEGAS 

NO410 | LAS VEGAS 

NO398 | LAS VEGAS 

NO421 | LAS VEGAS 

NO432 | LAS VEGAS 

R1020 | LE MILLIONNAIRE 
NO621 | MANDRAGORE 
NO632 | MANDRAGORE 
NO643 | MANDRAGORE 
B0043 | MEURTRE À GRANDE VITESSE 


B0112 | MEURTRES SUR L'ATLANTIQUE 


Conditions de vente 


CONDITIONS GÉNÉRALES DE VENTE : 
Disponibilité des articles: Tous les articles présantés sur le 
Fous en cours sont disponibles dans ja limite des 
stocks, 


Livroisons : 
© Nos délais sont de l'ordre de 5 jours à réception de la 
commonde, sauf prablème d'acheminement, 
© Nos prix sont calculés départ entrepôt. Le transport est 
effectué en votre nom por paquel poste non recom- 
mandé. 
POUR ACHETER PAR CORRESPONDANCE : 
Commandes : 
@ Choisissez dans votre catalogue, 
© Indiquez avec précision, sur ce bon de commande, les 
titres, références, quantité et prix. 
SEffectuez votre paiement par chèque bancaire, postal 
ou mandot-lettre libellé à l'ordre de MÉDIAVENTURE 
{espèces et timbres-poste rigoureusement interdits), ou 
indiquez votre numéra de Carte Bleue, sa date d'expira- 
tion et signez. 
@ Joignez votre titre de paiement à votre bon de com- 
monde (sauf Carte Bleue) et adressez le tout dans une 
® * enveloppe. 
* RENSEIGNEMENTS : 

@ Soit par correspondance en écrivant à : MÉDIAVEN- 

“+ TURE 4, impasse des Coquelicots 69675 BRON Cedex. 

Ï © Soit por téléphone de 9 h à 17 h 30 du lundi au vendredi 
en oppelant le 723303 39 - Service VPC. 


À © 3615 COMIKS. 


Cette offre est réservée aux particuliers et à la France 
Métropolitaine, valable jusqu'au 31/08/88 dans la limite 
des stocks disponibles. 

Prix et frais d'envoi au 31/05/8B susceptibles de variations 

en Fonction des circonstances économiques. 

SARL Médiaventure — Capitol de 50000 F. 

R.C. Lyon B 334183 027. 


Bon de commande à retourner à: 


MÉDIAVENTURE 
4 impasse des Coquelicots 
69675 BRON Cedex 








MINICALC 

















QRISP 

REVERSE 
SORTILÈGES 
SORTILÈGES 
SORTILÈGES 
SORTILÈGES 




































73,00F 
73,00F 
129,00F 
145,00F 
99,00F 


MEURTRES SUR L'ATLANTIQUE 


MISSION DELTA 
OMÉGA PLANÈTE INVISIBLE 
OMÉGA PLANÈTE INVISIBLE 
OMÉGA PLANÈTE INVISIBLE 
POLITIK POKER 


SFFRE 
SPÉCIALE ! 


RUE. cite wolnbls jueav’ 
ON 0 en 


Réfé- 
rence 
S2000 | OFFRE SPÉCIALE MO6 K7 |28 
S2001 | OFFRE SPÉCIALE TO8, TO9, TO9+ | D ]|38 







POUR MIEUX 
CONNAÎTRE 
NOS LOGICIELS 








































BOBO 
+ LES ATHLÈTES 
+ MARCHE À L'OMBRE 
soit 9 jeux BOUr 289” 


version cassette 
ou 389F version disquette. 











9,00F 
9,00F 
RL >e— 











| MIEUX VOUS CONNAÎTRE 


| © Avez-vous un minitel £ Cloui [Ulnon 
© Avez-vous un magnétoscope ? Cloui [non 
® Avez-vous un lecteur de disquette? oui lnon 


Votre &ge 


Aimeriez-vous participer à l'une de nos enquêles 
consommateurs # Cloui [lnon 


| $i oui, voire numéro de téléphone : 4 À À 


NOM :- 
PRÉNOM: ÂGE: 
ADRESSE : 








VILLE : 


CODE 
POSTAL LZE | ARS) 


VOTRE MODE DE PAIEMENT 


À LA COMMANDE 
1. [1 MANDAT-LETTRE 2. [1] CHÈQUE POSTAL 
3. [] CHÈQUE BANCAIRE 4. Cl CARTE BLEUE 


à l'ordre de MÉDIAVENTURE. 





N'oubliez pas d'inscrire son numéro et de signer, 


Date d'expiration: Signature : 
mes à: PP EN 


N'ENVOYEZ JAMAIS DE MANDAT-CARTE 14 IB, DE TIMBRES, NI D'ESPÊCES. 


Pour les mineurs, ? 

signature des parents, obligatoire. Signature des parents : 

ATTENTION: une signature falsifiée ou 

imliée peut entroïner des poursuites pénales (Art. 150 et suivants du Code Pénat). 


NOM DE VOTRE MACHINE ET MODÈLE 


THOMSON: MOS [1 MOé6 [1  TO7/70 OI 
TO8 Cl 109 TO9+ O 


Autre, précisez le modèle 






REPAIRE 


SUB600 

1270 P=0:I=INTC10XRND) +1 

1280 COLORC, 0: ATTRBO, 1: LOCATES 
,2,0:PRINT''MONTREZ-MOI LA LETT 
REY "> 

1290 COLORO, 7 : ATTRB1, 1: LOCATES 
5,9,0: PRINT L$(1IL); 

1300 INPUTPEN R,S 

1310 IF R<6O OR R>300 OR S<15 
OR 52335 THEN 1300 

1320 Q=INTCCR-60)/24)+1 

1330 COLORO, 4: LOCATES3*XQ+5,3, 0: 
PRINT L$(Q): 

1340 IF L$CQ)=LS(CI1) THEN 1380 
1350 PLAY”O5LSO0DOS I$50" 

1355 FOR X=1 TO 10 

1356 IF LSCX)=L$SCI) THEN COLOR 
7,4:LOCATESXX+5,8,0:PRINT LS$S(CX 
? ; 

1357 NEXT X 

1358 FOR T=1 TO 1500:NEXT T 
1360 GOT01400 

1380 PLAY”"O5LSODOREMI" : P=5: GOS 
UB800 

1390 FOR T=1 TO 1000:NEXT T 
1395 IF C=A THEN SA=SA+P ELSE 
SB=$5B+P 

1397 GOSUB450 

1398 FOR T=1 TO 1000:NEXT T 
1400 COLORO, 0: CONSOLEO, 16: CLS 
1410 NEXT H 

1420 CONSOLEO,24:CLS 

1425 SCRÉEN 0,0,0 

1430 FOR AH=1 TO 2:CLS 

1435 FOR I=1 TO 7 

1440 BOX(16XI,12%x1)-(319-(C16%I 
2, 199-(12%1)),1I 

1445 NEXT I:FOR T=1 TO 800:NEX 
T T 

1450 NEXT AH:CLS 

1500 AAS=—"MEMO MOTS" 

1510 BB$="'QUAND LES LETTRES SE 
RONT EFFACEES, ” 

1520 CCs='" VOUS DEVREZ CHOISIR 
LE MOT QU'ON" 

1530 DD$=—’’POUVAIT FORMER AVEC 
CES LETTRES. 

1540 EES$S="( UTILISEZ LE CRAYON 
OPTIQUE )” 

1545 CA=O:CE=7 

1550 GOSUB500: GOSUB1000 : GOSUBA4 
50 

1560 DIM M$(50):FOR J=1 TO 50: 
READ M$S(J)D:NEXT J 

1570 FOR H=1 TO 4 

1580 FOR Q=1 TO 4 


34 


1590 KCQ)=INTC5O0OXRND) +1 

1600 IF Q=1 THEN 1640 

1610 FOR RR=1 TO Q-1 

1620 IF KCRR)=K(Q) THEN 1590 
1630 NEXT RR 

1640 J=K(Q): N$S(Q)=MS(J) 

1650 NEXT Q 

1660 Y=INT(AXRND)+1:ZZ=0 

1670 PS=NSCY):PPS$S-PS 

1680 FOR I=1 TO 4 

1690 KA=INT(2XRND) +1: W=INT(11% 
RND) +1 

1700 C$='""ECLRHTMNPVS" : V$-""AEIO 
UAEIOUE" 

1710 IF KA=1 THEN Q$=MIDS (CS, VW 
51) ELSE QS$S=MIDS(VS,VW, 1) 

1720 P$=-P$S+Q8 

1730 NEXT I 

1740 H$="" 

1750 FOR X=1 TO 10 

1760 YYCX)=INTCIOXRND) +1 

1770 IF X=1 THEN 1810 

1780 FOR FF=1 TO X-1 

1790 IF YYCX)=YYCFH) THEN 1760 
1800 NEXT FF 

1810 NE=YYCX) 

1820 L$SCX)=MIDSCPS, NB, 1) : H$-HS 
+L$ CX) 

1830 NEXT X 

1840 GOSUB 600:GOSUB700: GOSUE?7 
50 

1850 FOR T=1 TO 9OO:NEXT T 
1860 GOSUB600 

1870 ATTRBO, 1: COLOR?, 0: LOCATEA4 
:16,0:PRINT''POINTEZ LE MOT QU’ 
ON POUVAIT FORMER’'; 

1880 BOX(92,40)-(292,104),7 
1890 COLORC: LOCATE1S, 7, 0: PRINT 
N$(1) ; : LOCATEZ0O,7,0:PRINT NS( 

ADS 

1900 LOCATE13, 11,0:PRINT N$(C3) 
3: LOCATERZ9, 11,0:PRINT N$(4); 
1910 ATTRB1, 1: COLORS3: LOCATE2Z0, 


7,0:PRINT CHRS(127)+"  *’+CHRS( 
1287); 

1920 LOCATEZ0,11,0:PRINT CHRS( 
1279247 FCHRS(127); 


1930 INPUTPEN R,S 

1940 IF R<152 OR R>240 OR S<40 
OR 5>104 THEN 1930 

1950 COLOR?7, 0: CONSOLE14, 16: CLS 
: CONSOLEO, 24 

1960 COLORC 

1970 IF R<192 AND S<72 THEN ZS 
=N$ (1) : LOCATEZ0, 7,0 

1980 IF R<192 AND S>72 THEN £Z$ 
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=N$ (3) : LOCATEZO, 11,0 

1990 IF R>192 AND S<72 THEN ZS 

=N$ (2) : LOCATEZ6,7,0 

2000 IF R>192 AND 672 THEN Z5$ 

=NS$ (4) : LOCATE26,11,0 

2010 PRINT CHRS(127); : PLAY”"05L 
10MIMI’ 

2020 HAS$S=HS 

2030 FOR K=1 TO 6 

2040 FOR I=1 TO 10 

2050 IF MID$S(ZS,K,1)=MIDSCHAS, 
1,1) THEN HAS=LEFTS(CHAS, 1—-1)+" 
#+RIGHTS CHAS, 10-11): GOTO 2080 

2070 NEXT I:GOTO 2100 

2080 NEXT K 

2090 GOTO 2150 

2100 ZZ=1:ZS$S=NSCY) : PLAY'"'O5L30D 

OS1IS0" 

2110 IF Y<3 THEN YA=7:YY=7 ELS 
E YA=11:YY=11 

2120 IF Y=1 OR Y=S3 THEN XA=20: 

XX=13 ELSE XA=26:XX=29 

2130 COLOR7:LOCATE XA, YA, 0:PRI 
NT CHRS (127) ; : ATTRBO, 1: LOCATEX 

X, EX, OH PRINTINS OT); 

2140 GOTO 2160 

2150 PLAY'”'O5LSODOREMI” 

2160 GOSUB700:HAS-=-HS$ 

2170 FOR I=1 TO 6 

2180 FOR X=1 TO 10 

2190 IF MID$S(Z$,1I,1)=MIDSCHAS, 
X,12 THEN COLORO,C:LOCATESXX+5 
,3,0:PRINT LSCX);:HAS=LEFTS CHA 
$S,X-1)2+" HRIGHTSCHAS, 10-X) PE 
AY”O5L20MIPPP’ : GOTO 2210 

2200 NEXT X 

2210 NEXT I 

2220 IF ZZ=1 THEN 2260 

2230 P=5:GOSUB800:FOR T=1 TO 1 
000:NEXT T 

2240 IF C=A THEN SA=SA+P ELSE 
SB=-S5B+P 

2250 GOSUB450 

2260 FOR T=1 TO 1200:NEXT T 
2270 COLOR?7, 0: CONSOLEO, 16: CLS: 
CONSOLEO , 24 

2260 NEXT H 

2290 CONSOLEO, 24: CLS: SCREENO, O0 
0 

4 

2292 FOR I=1 TO 7 

2293 BOXF(16X%I,12X[1)-(319-C16% 
12,199-(C12%XI)),1I 

2294 NEXT I:FOR T=1 TO 800:NEX 

“HOME 

2295 CLS 

2300 CA=0:CB=13 
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REPAIRE 


2310 AAS$="MEMO LONG" 
2320 BB$="AVEC LES 10 LETTRES, 
CHERCHEZ" 

2330 CCS="UN MOT LE PLUS LONG 
POSSIBLE.” 

2340 DD$="( 2 POINTS PAR LETTR 
E >?! ! EES=? ss 

2360 GOSUB500:GOSUB1000 : GOSUB4 
50 

2370 FOR D=1 TO 4 

2380 GOSUB600 : GOSUB650 : GOSUE70 
0: GOSUE750 

2390 HAS=HS: GOSUB 575 

2400 GOSUB600 

2410 ATTRBO, 1: COLOR?7, 0: LOCATEG 
,14,0:PRINT"COMBIEN DE LETTRES 
De 

2420 PAS="":K=8 

2430 COLOR7: LOCATEK, 9,1 

2440 PS=INKEYS:IF P$="" THEN 2 
440 

2445 LOCATEK,0:PRINT P$;:1F AS 

C(P$)=8 THEN K=K-2: PAS=LEFTS (P 
A$, ABSC(LEN(PAS)-1)):GOTO 2430 
2450 PAS$S=PAS+PS 

2460 IF ASC(P$)<>13 THEN K=K+2 
:GOTO 2430 

2470 PA=VALCPAS):IF PA>10 THEN 
PA=O 

2480 ATTREO, 0: COLOR2/C: LOCATEZ 
0,7,0:PRINT GRS (O0); GR$(1) ; CHRS 
(10); F$: FS; GRS (2) ; GRS (3) ; CHRS ( 
10); F6; FS; GRS (4) ; GRS (5) ; CHRS (1 
0): F$; F8; GRS (6) ; GRS (7); 


2490 ATTRBO, 1: PB$="":K=24 

2500 COLOR? : LOCATEK,9,1 

2510 PS$S=INKEYS:IF PS$="" THEN 2 
510 


2520 LOCATEK,9:PRINT P$;:1F AS 
CCP$)=8 THEN K=K-2: PBS=LEFTS(P 
B$, ABSCLEN(PBS$) -1)): GOTO 2500 
2530 PBS$=PBS$S+PS 

2540 IF ASC(PS)<>13 THEN K=K+2 
: GOTO 2500 

2550 PB=VAL(PBS):LOCATEK,O,O:I 
F PB>10 THEN PB=0 

2555 IF PA=O AND PB=0 THEN 295 
0 

2560 FOR T=1 TO 1000:NEXT T 
2570 COLOR7, 0: CONSOLEA, 16: CLS: 
CONSOLEO, 24 

2580 IF PB>PA THEN P=PB:C=2/C 
ELSE P=PA 

2590 COLORC, 0: ATTRBO, 0: LOCATE4 
16, OC: PRENT ES; 

2600 PLAY”O5L12MIPMI"” : LOCATES, 


35 





 REPAIRE 


14, 0: ATTRBO, 1: PRINT”ECRIVEZ VO 


TRE MOT"; 

2610 Z$=’"’°':K=0: ATTRB1,1 

2615 COLOR7, 0: LOCATE S3%xCK+1)+5 
OL 

2620 PS$S=-INKEYS:IF P$="" THEN 2 
620 


2630 IF ASC(P$)=13 THEN 2650 
2640 Z2$=2Z$+P$:K=K+1:COLORO,C:L 
OCATESXK+5,8,0:PRINT PS$;:1F AS 
CCP$S)=8 THEN K=K-2:ZS$S=LEFRTS(ZS 
; ABSCLENCZ$) -2) } : COLORO, 0 : LOCA 
TE SX(CK+1)+5,8:PRINT" ‘ ; : GOTO 
2615 ELSE 2615 

2650 COLOR7, 0: CONSOLE12, 16: CLS 
: CONSOLEO, 24 

2660 IF K<>P THEN ATTREO, 1:COL 
OR7, 0: LOCATEBS, 13,0: PRINT'CE MO 
T N'A PAS ?,P;:% LETIRES !AC=2 
/C: PLAY” O5L30DOS1I$0" : GOTO 2800 
2670 GOSUB700 

2680 FOR KK=1 TO P 

2690 FOR X=1 TO 10 

2700 IF MIDS$S(ZS,KK, 12=MIDS CHAS 
,X,1) THEN COLORO, C: LOCATESXX+ 
5,3,0:PRINT LSCX);:HAS=LEFTS(CH 
A$S,X—-1)+" "’+RIGHTS$SCHAS, 10-X):P 
LAY'"O5L12MIMIPPP’ : GOTO2720 
2710 NEXT X 

2715 PLAY'"'O5L30DOS1IS0" : ATTRBO, 
1: LOCATES, 13, 0: COLOR? , O0: PRINT" 
MOT IMPOSSIBLE !";:C=2/C:GOTO 
2800 

2720 NEXT KK 

2730 ATTRBO, 1: COLOR?7, O0: LOCATES 
, 13,0: PRINT''MOT CORRECT ? (O- 
NW)"; 

2740 P$S=INKEYS:IF P$="””" THEN 2 
740 

2750 PP=ASC(P$):IF PP<78 OR PP 
>79 THEN 2740 

2760 ATTRB1, 1: COLORO, 7: LOCATES 
0,13, 0:PRINT PS; 

2770 IF PP=78 THEN C=2/C 

2800 FOR T=1 TO 1000:NEXT T 
2900 COLOR7, 0: CONSOLE12, 16: CLS 
: CONSOLEO, 24 

2910 P=2xP:GOSUB800 

2920 FOR T=1 TO 1000:NEXT T 
2930 IF C=A THEN SA=SA+P ELSE 
SB=SB+P 

2940 GOSUB450 

2950 FOR T=1 TO 1000:NEXT T 
2960 COLOR7, 0: CONSOLEO, 16: CLS: 
CONSOLEO, 24 

2970 NEXT D 
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2980 CLS:GOSUB 3 

3000 CA=O0:CB=3 

3010 AA$="MEMO POINTS" 

3020 BB$='"’CHAQUE LETTRE A UNE 
VALEUR. 

3030 CCs="’ VOUS DEVEZ TROUVER U 
N MOT VALANT’ 

3040 DD$="LE PLUS DE POINTS PO 
SSIBLE, ” : FES$S=/P" 

3050 GOSUB500:GOSUB1000 : GOSUBA 
50 

3060 FOR DD=1 TO 4 

3070 H$=’’ 

3080 FOR X=1 TO 10 

3090 V=INTC2XRND)+1: W=2XCINT(1 
LXRND) +1) 

3100 C$="6B6C3LSREHSTAMANAPAVE 
S’! 

3110 V$='""3A2E4ISOAUSAZEAIS3OAUZ 
E’ 

3120 IF V=1 THEN L$S(X)=MIDS(CCS 
5 W, 12: VASCX)=MIDS(CS,W-1,1) EL 
SE LSCX)=MIDS(VS, VW, 1): VASC(X)=M 
ID$SCVS,W-1,1) 

3130 H$=HS+LS(X) 

3140 NEXT X 

3150 HAS$S=H$ : GOSUB600 : GOSUB7 00 
3160 GOSUB3170:GOTO03200 

3170 FOR X=1 TO 10 

3180 ATTRB1, 1: COLOR12, 0: LOCATE 
3XX+5,6,0:PRINT VAS(X);: 

3190 NEXT X:RETURN 

3200 GOSUB750 

3210 GOSUE 575 

3220 GOSUB600 

3230 COLORO, 0: FOR X=1 TO 10:L0O 
CATESXX+5,6,0:PRINT VAS(X)::NE 
XT X 

3240 ATTRBO, 1: COLOR, 0: LOCATES 
13, 0: PRINT'COMBIEN DE POINTS 
779: 

% L 

3250 PA$S='"''":K=8 

3260 COLDOR7:LOCATEK, 9,1 

3270 PS$S=INKEYS:1IF P$="" THEN 3 
260 

3280 LOCATEK, 9: PRINT P#$;:1F AS 
CCP$S)=8 THEN K=K-2: PA$S=LEFTS(P 
AS, ABS(LEN(PAS)-1)):GOTO3260 
3290 PAS$S=PAS+PS 

3300 IF ASC(P$S)<>13 THEN K=K+2 
: GOTO3260 

3310 PA=VAL(PAS) 

3320 ATTRBO, 0: COLOR2/C: LOCATEZ 
0,7,0:PRINT GR$CO); GRS(1); CHRS 
(10): F$; F$; GR# (2) ; GR$S (3) ; CHRS ( 
10); F5; F$; GRS (4) ; GR$ (5) ; CHRS (1, 
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0): F$; F$; GR$S (C6) ; GRB(7); 


3330 ATTRBO, 1: PBS$="" : K=24 

3340 COLOR7:LOCATEK, 9,1 

3350 PS=INKEYS:IF P$="" THEN 3 
390 


3360 LOCATEK, 9:PRINT P#;:1F AS 

C(CP$)=-8 THEN K=K-2:PBS$S=LEFTS(P 

B$, ABS{LEN(CPBS)-1)):GOTO 3340 

3370 PB$S-=PBS+PS 

3380 IF ASC(P$)<>13 THEN K=-K+2 

: GOTO 3340 

3390 PE=VAL(PBS$):LOCATEK,9,0:1I 

F PA=O AND PB=0 THEN 3760 

3400 FOR T=1 TO 1000:NEXT T 

3410 COLOR?7, 0 : CONSOLEA, 16: CLS: 

CONSOLEO, 24 

3420 IF PB>PA THEN P=PB:C-2/C 

ELSE P=PA 

3430 ATTRBO, O0: COLORC, 0: LOCATE4 
, T!PRINT GR$(O); GRS (1); CHR$S (10 
D: F8; F$; GR$(2) ; GR$S (3) ; CHRSC10) 
F8: F8; GR$S (4) ; GR$ (5) ; CHRS (10); 

F$; F$; GRS (6) ; GRS (7) ; 

3440 PLAY'"O5L12MIPMI"' : LOCATEES, 

14,0: ATTRBO, 1: PRINT'ECRIVEZ VO 

TRE MOT"; 

38450 Z$="":K=0:ATTRB1,1 

3455 COLOR7, 0: LOCATE 3XCK+1)+5 
LOT 

3460 PS=INKEYS:IF P$=" THEN 3 

460 

3470 IF ASC(P$)=-13 THEN 3490 

3480 Z$5=2Z$+P$:K=K+1:COLORO,C:L 

OCATES*XK+5,9,0:PRINT PS$;:1F AS 

CCP$S)=8 THEN K=K-2:ZS$S=LEFTS(Z$ 
, ABSCLEN(Z$) -2) ) : COLORO, 0: LOCA 

TE BXCKEL)+5, SHOP PRINT” ”::.COT 

O 3455 ELSE 3455 

3490 LOCATEO, 0, 0: COLOR?7, 0: CONS 

OLE13, 16: CLS: CONSOLEO, 24 

3495 FOR T=1 TO 500:NEXT T 

3500 PR=0: GOSUB7 00: GOSUB3170 

3510 FOR KK=1 TO LEN(ZS#) 

3520 FOR X=1 TO 10 

3530 IF MID$S(ZS,KK, 1)=MIDS CHAS 
» Xs 1) THEN LOCATESXX+5, 3: COLOR 
0,C:PRINT LS$(CX) ; : COLORC, 0: LOCA 

TESXX+5,6:PRINT VASCX); : PR=PR+ 
VALÇCVASCX)):HAS=LEFTS (HAS, X-1) 

+ M+RIGHTS (HAS, 10-X) : PLAY''MIM 
IPPP’ ; COLOR?7, 0: LOCATEZ, 3: PRINT 
MIDSCSTRS CPR), 2); : PLAY'PPPP": 

GOTO 3560 

3540 NEXT X 

3550 PLAY'"'O5L30D0SIS0" : ATTREO, 
1: LOCATES, 13, O0: COLOR?7, O0: PRINT" 

MOT IMPOSSIBLE !*’;:C=2/C:GOTO 
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REPAIRE 


3700 

3560 NEXT KK 

3570 IF PR<>P THEN ATTRBO, 1:C0O 
LOR7 , 0: PLAY’ O5L30DOS ISO" : LOCAT 
E8,13,0:PRINT'"'CE MOT NE VAUT P 
AS "’:P;* POINTS !#;::C=2/C: GOTO 
3700 

3580 ATTRBO, 1: COLOR?7, O0: LOCATE8 
13,0: PRINT''MOT CORRECT ? (O- 
N)D°; 

3590 PS=INKEYS:IF P$="" THEN 3 
590 

3600 PP=ASC(P$):IF PP<78 OR PP 
>7Q THEN 3590 

3610 ATTRE1, 1: COLORO, 7 : LOCATES 
0,13,0:PRINT PS; 

3620 IF PP=78 THEN C=2/C 

3700 FOR T=1 TO 1000:NEXT T 
3710 COLOR7, 0: CONSOLE12, 16: CLS 
: CONSOLEO, 24 

3720 GOSUB800 

3730 FOR T=1 TO 1000:NEXT T 

3740 IF C=A THEN SA=SA+P ELSE 

SB=SB+P 

3750 GOSUB450 

3760 FOR T=1 TO 1000:NEXT T 
3770 COLOR7, 0: CONSOLEO, 16: CLS: 

CONSOLEO, 24 

3780 NEXT DD 

3790 CLS:GOSUB 3:GOSUB 1000:G0O 

SUB 450 

3800 GOSUB 450:PLAY'"L4A001LAOZL 

AOSLAO4LAOS5LA" 

3810 COLOR7, 0: ATTREBO, 1: LOCATE6 
6,0: PRINT”'POUR FAIRE UNE AUTR 

E PARTIE,’'; 

3820 LOCATEES, 12, 0: PRINT’ TAPEZ 
É ENTREE" ; 

3830 MMS=INKEYS: IF MM$="" THEN 
3830 

3840 IF ASC(MMS)=13 THEN RUN E 

LSE 3830 

4200 DATA MARCHE, MANCHE, POLICE 
; POSTER, LOUTRE, COULER, COUVEE, M 

OUCHE, BALLON, POULET 

4210 DATA BOULET, LIVRET, PIOCHE 
: BRULER, LOUPER, PASSER, CACHER, T 

ABLES , ETABLE, ETABLI 

4220 DATA CASSER, VERITE, FORCHE 
; NAPPER, LIMIER, POUTRE, COUVER, V 

OULUE, SAUCES, TAUPES 

4230 DATA CALCUL, COLLER, CHAISE 
, POINTS, POULES, ROULER, MARIER, C 

ENTRE, ENTREE, SOIREE 

4240 DATA ROSIER, ÉTOILE, PLUMER 
: BAISER, TULIPE, PETALE, SEPALE,P 
ISTES, BLOUSE, CALINE 
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f(x) = GRAP 


=sin(to(t)) 






Programme d'une grande utilité pour se débarrasser des représentations graphiques ennuyeuses. Ce programme permet 
en effet de tracer les courbes de fonction qu'on lui soumet. Après l'avoir lancé par Run “courbes”, un menu vous offre 
9 possibilités ; vous pouvez par exemple entrer le type de fonction, y compris des équations polaires ; superposer des 
courbes, les imprimer... Les fichiers sont sauvegardés sous forme MAP, ce qui permet de les réutiliser sous paragraphe. 
Entrez votre fonction, fixez les valeurs inférieures et supérieures et, après un temps de calcul (assez long), la courbe 
se trace. L'option 4 vous permet de garder la même fonction mais de changer l'intervalle de présentation. 


JF. BARLIER 
À TDR EDP DEEE EE superposition de courbes " 
PIE TRACE DE COUREBES # 120 COLOR2,0:LOCATES,12:PRINT"4&. fin d 
& "+ (par J.F. BARLIER) * u mode superposition “ 
4 + # 136 LOCATES,14:FRINT"7, Charger un gra 
Er “% toutes fonctions de la * phique" 
é syntaxe BASIC * 140 LOCATES,1&4:FRINT"8. Sauver un grap 
7 ‘*x et fonctions hyperboliques + hique" 
8 ‘+ # 150 LOCATES,18:FRINT"9. Impression d'u 
D MM AA DEEE DEEE DD IEEE n graphique" 
10 CLEAR 9000 140 COLORG,2: LOCATES, 22: FRINT"Fi"3;: COL 
20 DIM T#(112) ORE,0:FRINT" Fin " 
30 DIM 54 (50060) , T4 (5000) ,F4 (5G00) 170 LOCATEO, 24: COLOR1 : FRINT'CHOIX";:A# 
40 CS$="N":TX= I: CSU=2: CSF=O =INFPUT# (1) : COLORZ 
56 CONSOLES, 24: SCREENZ, 06,0 180 IF A#$=CHR#E (144) THEN END 
£&O CLS 190 IF VAL(A#)=0 THEN 170 
70 COLORE,0:LOCATES,Z:PRINT"1. fonctio 2006 IF VAL(A#)=1 THEN FO=1:V#="V": GO0SU 
ri Y=t (X) B 3150:GO0SUE 340 
80 LOCATES,4:PRINT"2. fonction X= 210 IF VAL(AF)=2 THEN FO=2:V$="x":GOSU 
FT V=f" CT)" B 3150: X#=F#:V$="y":GOSUE 3150: YF=F#: 6 
9G LOCATES,6:FRINT"S. fonction K= OSUE 1250 
(Ti polaires" 220 IF VAL(AF)=3 THEN FO=3:V#="R":GOSU 
105 LOCÉTES,B8:FRINT"4, Refaire la cour E 315G:GOSUR 219G 
be" 230 IF (VAL(A#)=4 AND FO=4) THEN GOTO 
110 COLOR CSU,CSF: LOCATES, 10: FRINT"S. £0 
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240 IF VAL(A#)=4 AND CS+="0" THEN CLS: 
CONSOLE, ,,,2: LOCATE 9,0,0:PUT (G,0),S4( 
2000) : GET (6,0)-(39,24) ,T4 (5000) 

290 IF (VAL(A#)=4 AND FO=1) THEN GOSUR 
34 
ec IF 
1250 

270 IF (VAL(AF)=4 
2190 

280 IF (VAL(A#)=5 AND FO>=1 AND CS#<}" 

0") THEN CS$="0":CSU=0G:CSF=2: GOSUB 533 

(a) 

290 IF (VAL(A#)=86 AND CS+="N") THEN 60 

TO 4û 

306 IF VAL(AF)=£ THEN CLS:COLOR?, Gs LOC 

ATES,5:PRINT'"La courbe sera perdue pou 

r les":FRINT"traces suivants (sauvegard 

e possible)":LOCATES,8:COLORI,0:FRINT" 

CONFIRMATION: O/N": COLOR? , O: RR$=INEUTÉ ( 

1):1F RR#="0" OR RRF="o" THEN CS$="N"e 

CSU=2:CSF=0 ELSE GOTO6G 

310 IF VAL(A#)=7 THEN ECHX=ECHY: CS$="N 

"sCSL=2: CSF=0:FO0=4: GOSUE 3930 

320 IF VAL(A#)=8 THEN CLS: GOSUER 4180 

IF VAL(A#)=9 THEN CLS:GOSLIE 4990 

GOTO 4ÿ 

PREND DE DE SEA DE DEEE EEE 

"#A COURBE Y=F(X) FX 

À ARE DD EE DE MED DEEE EE 

380 IF CS#£:"0" THEN GOTO 420 

390 IF VAL(A#)=4 THEN COLOR 1,0G:FRINT" 

Courbe precedente":FOR I1=0 TO 10G0: NE 

XT:LOCATEG,0,0:FRINT" 

"GET (0,0) -(39,24),5% (5000) : COLOR 2, 

Ô 

400 IF VAL(A#)<:4 THEN CONSOLE, ,,,2:L0 

CATE G,0G,0:FUT (6,0) ,T4 (5000) : COLOR 1,0 

:FRINT'"Courbe precedente":FDR I=0 TD i 

000: NEXT:LOCATEG,0,G:FRINT" 

"ei GET (G,0)-(39,24),54(5000) :C 

OLOR 2,û 

410 LOCATE34,24: COLOR? , Gs: FRINT"-:"3: : C0 

LOR 0,3: FRINT"ENT"; : COLOR 2,0: Z#= INPUT 

F(L)i2IF ASC(Z#)<:13 THEN 410 

426 ON EFFOR GOTO 1196 

4306 CONSOLE, ,,,0:CLS:SCREEN 2,0,0 

440 X1=0: X£=0s Y1=0s V£=O0: TST=G: PASG, 1 

450 LOCATE 5,0,0:FRINT"ENTREE des para 

metres 

460 LOCATE he d 

e la fonction : COLORO,3:FRIN 

TF1 Ts 2EDLOR 2,68 

470 LOCATE G,2,1:FRINT"'VALEUR inferieu 

re de X 7";:LOCATE 25,2,i 

480 72$="": DO 

460 AZF=INPUT# (1) 


{VALIRF)=4 AND F0=2) THEN 5OSUE 


AND FO=35) THEN GOSLIR 


330 
340 
350 
360 
370 


TÉO N° 18 - JUILLET/AOÛT 1988 





REPAIRE 


) 500 IF ÀZF=CHR# (13) THEN EXIT 


S10 IF AZ$-CHRE (144) THEN MDF=1:EXIT 

S20 IF AZ#=-CHRE(B) THEN IF Z#é>"" THEN 
ZH=LEFTÉ (Z$,LEN(Z#)-1) :PRINTAZ#;" ‘se 

GOTO 550 ELSE PRINT AZ$;" "3 :GOTO 550 

530 IF (ASC(AZ#)<40 OR ASC(AZ#) 357) TH 

EN GOTD 540 

SO Z$=2$+A74 

590 LOCATE 25,2,1:PRINT Z#; 

SéO LOOP 


370 IF MDF=1 THEN MDF=0:8#="1":GOTO 2G 


| O ELSE X1=VAL(Z#) 


580 LOCATE O,4,1:FRINT"'VALEUR superieu 
re de X ?": :LOCATE 23,4,1 


390 Z$="";s DO 

£OO AZF=INFUT# (1) 

&1CG IF AZ$=CHR# (13) THEN EXIT 

620 IF ÀZ$=CHR# (144) THEN MDF=i1:EXIT 

630 IF ÀAZF=CHRE (8) THEN IF Z$£:"" THEN 
ZLH=LEFTE(ZF,LEN(Z#)-1):FRINTAZ#S" Mos 

GOTO 466 ELSE FRINT A7Z$s;" "s:GO0OTO &440 

&4O IF (CASC(AZHF)<40 OR ASC(AZE) 57) TH 

EN GOTO 675 

&SQG ZF=Z$+A1 

£&eG LOCATE 25,4,1:PRINT 2#; 

670 LOCF 

&80 IF MDF=1 THEN MDF=0:0#$="1":GOTO 20 

Q ELSE X2=VAL(7#) 

&9G IF X1:X2 THEN GOTO 42ü 

7006 LOCÂTE 0,14,1:FRINT'FAS de X (0.1 

par defaut) ?"::LOCATE 28,14,1 

710 FA$="":D0 

720 AZF=INPUTE (1) 

730 IF AZ#=CHR# (13) THEN EXIT 

740 IF AZF=CHR# (144) THEN MDF=1:EXIT 

750 IF AZ#=CHR#E(S) THEN IF FA#£Z"" THE 

N FPAS=LEFTE (PAS, LEN(PAS}-1) : PRINTAZ#; " 
“s:GOTO 780 ELSE FRINT A7#;" "5 :G60T0 

780 

7640 IF (ASC(AZ#S)<4G OR ASC(AZS) >57) TH 

EN GOTO 790 

770 FAS=FAS+AZE 

780 LOCATE 28,14,1:FRINT FA; 

796 LOOP 

800 IF MDF=1 THEN MDF=0: A$="1":GOTO 20 

a) 

810 FA=VAL(FA#): IF FA=G THEN FA=0.1:PA 

$="0.1" 

B2G LOCATE 28,14,1:FRINT FA#; 

830 CONSOLEZ4, 24: CLS: CONSOLES, 44 

840 IF CS$="0" THEN LO#="0":LOCATE, ,0: 

GOTO 84ûG 

850 LOCATE G,14,0:FRINT"REFERE NORME 0 
/Ns  "ssLOF=INPUTE (I): FRINT LOF 

B&G LOCATE 10,22:FRINT"Calcul des vale 

urs extremes";:COLORI,G:LOCATE 20,23:F 


39 
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RINT'FATIENCE. .."3:COLOR?,0 
87G IF LO#$="0" OR LO$="o" THEN LO=i EL 
SE LO=0 
680 X=X1:Y1=EVAL (CCRUNCH# (F#) } 
B9G X=X2: Y2=EVAL (CRUNCHE (F#) ) 
900 IF Y1:Y2 THEN SWAF Y1,Y2 
916 TST=1 
920 FOR X= X1 TO X2 STEF 0.2 
9350 YVI-MIN(YI,EVAL (CRUNCHE (F#) ) ) 
940 Y2=MAX (Y2,EVAL (CRLUNCHE (F#) )) 
950 NEXT 
940 CONSOLE 16,24: CLS: CONSOLEO, 24 
970 LOCATE 0,10,0:FRINT"'VALEUR inferie 
ure de Y'"i;Yi 
98G LOCATE 6,12,0:PRINT"VALEUR superie 
ure de Y'":Y2 
990 LOCATE 0,23,0:PRINT" Confirmation 
Ps O/N "sr: R#S=INEUTS (1) 
1000 IF K$="N" THEN GOTO 430 
1G1G CLS:CONSOLE, ,,,2 
1620 IF C5+="0" THEN GOTO 1100 
1630 ECHX=125/MAX (ABS (X1) , ABS (X2) ) 
16040 ECHY=80/MAX (ABS (V1) , ABS (Y2) } 
1050 1F LO=1 THEN ECHX=MIN(140,ECHX ,EC 
HY) : ECHY=ECHX 
1üéG LINE (G,100)-(319,100) ,3 
1070 LINE (16O+ECHX,99)-(140+ECHX,101), 
n 
1080 LINE(I4G,0)-(140,199),3 
1090 LINE (159,100-ECHY)-(161,1GG-ECHY) 
3 
1100 IF CS#="0" THEN FUT (0,0) ,T4 (5606) 
1110 FOR X=X1 TO X2 STEF FA 
1120 PSET(LECG+X*ECHX, 100—ECHY#EVAL (CRU 
NCHÉ(F#)2) ,1 
1130 NEXT 
1146 LOCATE 6,0,G 
1150 GET (G,0)-(39,24),T4 (50G6) 
1140 LOCATE34,24:COLOR2, Gs: PRINT"-5"5:C 
OLOR 0,3:PRINT"ENT"s;: COLOR 2,0: 2#=INFU 
T#(L)2:IF ASC(2Z#)£5>;13 THEN 1140 
1170 CONSOLE, ,,,0 
1180 RETURN 
1190 IF ERR=1i THEN RESUME NEXT 
1200 IF ERR=é THEN CFT=CFT+I:1F CFT:9 
THEN LOCATE G,24:COLOR3 , 0: PRINT" valeur 
s trop grandes"; :LOCATES34,24:COLORZ,0: 
PRINT "-}"3 : COLORO, 33: PRINT "ENT "3; : CFT=D: 
COLOR? ,0: A$=INFUT# (1) : RESUME 456 ELSE 
RESUME WEXT 
210 IF ERR=S AND TST=0 THEN COLOR3,0: 
LOCATE 0,24:FRINT"Valeurs impossibles” 
s: COLOR 2,0:LOCATE 34,24: PRINT"-5"; : CD 
LOR 0,3: PFRINT"ENT": : COLORZ,G: R$=INFUT# 
(1):1F ASC(R#)<>13 THEN GOTO 1210 ELSE 
RESLIME 430 


1220 IF ERR=S AND TST=1 THEN RESUME NE 
XT 
1230 CONSOLE, ,,,0: PRINT ERR:ERL: RESUME 
1240 HRARAFAARNRRARRARANRENÉRIRREAE 
1250 ‘x COURBE X=FIT) Y=F'(T) *# 
LRÉO 7 HEATH EE 
1270 IF CS#<{:"O" THEN GOTD 1310 
1280 IF VAL(A#I=4 THEN COLOR 1,G: PRINT 
"Courbe precedente":FOR IG TO 10006: N 
EXT:LOCATEG,G,0G: PRINT" 

"a GET (0,0)-(39,24),S% (5000) : COLOR 2 
0 
1290 IF VAL(A#)£:4 THEN CONSOLE,,,,2:L 
OCATE 0,6,G:PFUT (0,6),T4(5000) : COLOR 1, 
G:FRINT"Courbe precedente":FOR 1=0 TO 
1000: NEXT:LOCATEO,G,G: PRINT" 

"eGET(0,0)-(39,24),59%4 (5000): 

COLCR 2,0 
15306 LOCATES4,24: COLOR? , 6: PRINT"-2"s:C 
OLOR 0,3:FRINT"'ENT!";: COLOR 2,0: 7#=INFU 
T#(L):IF ASC(Z#)£:13 THEN 1300 
1310 ON ERROR GOTO 2130 
1320 CONSOLE, , ,,0:CLS:SCREEN 2,0,0 
1330 Ti=G: T2=02: Xi1=0: X2=G: Yi=G: V2=0: TST 
=: FASO, 1 
1340 LOCATE 5,0,0:FRINT"'ENTREE des par 
ametres 
1350 LOCATE G,24,06:PRINT"'Modification 
de la fonction —ÿ"s : COLORO ,3:FRI 
NT"Fi";:COLOR 2,0 
136G LOCATE G,2,1:FRINT'VALEUR inferie 
ure de T ?"::LOCATE 25,2,1 
1370 24="";D0 
1580 AZF=INFUTE# (1) 
1390 IF AZ#=CHR# (13) THEN EXIT 
1400 IF AZ#=CHR# (144) THEN MDF=I1:EXIT 
1410 IF AZ#=CHR#(S) THEN IF Z$£2"" THE 
N Z#=LEFTE(ZS,LEN(Z#)-1) :PRINTAZSs" "3 
:GOTO 1440 ELSE FRINT A7#s;" “"s:GOTO 14 
ac 
1420 IF (ASC(AZ#)<40 OK ASC(AZH) 357) T 
HEN GOTO 1456 
1430 7+5=2#+07# 
1440 LOCATE 25,2,1:PRINT Z#; 
1450 LOOF 
1460 IF MDF=1 THEN MDF=G:0#="2":6G0T0 2 
10 ELSE Ti=VAL(Z#) 
1470 LOCATE G,4,1:FRINT'"'VALEUR superie 
ure de T ?'"s::LOCATE 25,4,1 
1486 2$="": 00 
1490 AZ#=INFUT# (1) 
15006 IF AZS=CHR# (13) THEN EXIT 
1510 IF AZ#=CHR# (144) THEN MDF=i:EXIT 
1520 IF AZ#=CHR$ (8) THEN IF Z#£3%"" THE 
N ZH=LEFTÉ(ZE,LENCZH)-1):PRINTAZ#E" "3 
:601T0 1550 ELSE FRINT AZ$s:" "s:GOTO 15 
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2" 


90 

15350 IF (ASC(AZ#)<40 OR ASC(AZ#) 257) T 

HEN GOTO 1560 

1540 24=2#$+07$ 

1550 LOCATE 25,4,1:FRINT Z#: 

1560 LOOF 

1570 IF MDF=1 THEN MDF=0:A$="2":G0T0 2 
10 ELSE T2=VAL(Z#) 

1580 IF TZ£=Ti THEN G60TO 1320 

1590 LOCATE 0,14,1:FRINT"FAS de T (0.1 
par defaut) 7"::LOCATE 28,14,1 

1600 FA#="": D0 

1410 AZEY=INFUT#(1) 

1620 IF AZF=CHR# (13) THEN EXIT 

1630 IF AZ#=CHR#(144) THEN MDF=1:EXIT 
1440 IF AZF=CHR#(8) THEN IF FA#<>"" TH 

EN FA$=LEFTS (FRS, LEN(FA#) -1) : FRINTAZ#: 
" "::GOTO 1670 ELSE FRINT AZ#:" "5: GOT 

D 14670 

1690 IF (ASC(AZ#F)<40 OR ASC(AZH) 57) T 

HEN GOTO 1480 

1660 FAF=FAS+AZE 

1470 LOCATE 28,14,1:PRINT FA#; 

16800 LOOF 

16906 IF MDF=1 THEN MDF=0:A#$="2":GOTO 2 

10 

1700 FA=VAL(FA#):IF FASO THEN FA=O. 1:F 

A#="0, 1" 

1710 LOCATE 29,14,1::FRINT FA#: 

1720 CONSOLE 24,24: CLS: CONSOLES ,24 

1730 IF CS$="0" THEN LO$="0":LOCATE, ,0 

:GOTO 1730 

1740 LOCATE 0,16,0:FRINT"'REFERE NORME 

O/Ns “ss LOF=INFUT# (1): FRINT LO$ 

1730 LOCATE 10,22:PRINT"Calcul des val 

eurs extremes";:COLORI,0:LOCATE 20,23: 

FRINT'FATIENCE... "3: COLORZ,0 

1760 IF LO$="0" OR LO$="o" THEN LO=1 E 

LSE LO=0 

1770 T=Ti: X1=EVAL (CRUNCHE (X#) ) : YI=EVAL 
(CRUNCHE (Y#) ) 

1780 T=T2: X2=<EVAL (CRUNCHS£ (X#) ) : Y2=EVAL 
(CRUNCHE (Y#) ) 

1790 IF X1:X2 THEN SHËF X1,X2 

1800 IF Y1>Y2 THEN SWAF Y1,Yz 

1810 TST=1 

1820 FOR T= Ti T0 T2 STEF 0.2 

1850 YVI=MIN(YI,EVAL (CRUNCHE# (Y#) ) ) 

1840 Y2=rAXx (V2,EVAL (CRUNCHS (V#) ) ) 

1850 X1=MINCX1,EVAL (CRUNCHEÆ (X#) )) 

1860 X2=MAX (X2,EVAL (CRUNCH# (X#) ) ) 

1870 NEXT 

1980 CONSOLE 10,24:CLS:CONSOLEO,2 

1890 LOCATE 0,10,0:FRINT"VALEUR inferi 

eure de Y"sYi 

1900 LOCATE 0,12,0:PRINT'VALEUR superi 


REPAIRE 


eure de Y"3Y2 
1910 LOCATE 0,14,0:FRINT"VALEUR inferi 
eure de X";x1 
1926 LOCATE G,14,0:FRINT"'VALEUR superi 
eure de X":X2 
1930 LOCATE 0,23,0:FRINT" Confirmation 
7: O/N "ss R#=INFUT# (1) 
1940 IF R$="N" THEN GOTO 1320 
1950 CLS:CONSOLE, ,,,2 
196G IF CS$="0" THEN GOTO 2040 
1970 ECHX=125/MAX (ABS (X1) ,ABS(X2)) 
1980 ECHY=80/MAX (ABS (Y1) ,ABS(Y2)) 
1990 IF LO=1 THEN ECHX=MIN (160 ,ECHX,EC 
HY) : ECHY=ECHX 
2600 LINE(O,100)-(319,100),3 
2010 LINE (LÉO+ECHX,99)-(CLECG+ECHX,101), 
ss 
2070 LINE(160,0)-(160,199),3 
2030 LINE (159,100-ECHY)-(161, 1006-ECHY) 
3 
$ 
2040 IF CS$="0" THEN FUT (0,0) ,T4(5000) 
2050 FOR T=Ti TO T2 STEF FA 
2060 FSET (Lé0+EVAL (CRUNCHE (X#) }ECHX, 1 
GO-ECHYY*EVAL (CRUNCHE (Y#3 33,1 
2070 NEXT 
2080 LOCATE G,0,0 
2090 GET(0,0)-(39,24) ,T4 (5000) 
2100 LOCATES4,24:COLOR2, 0: FRINT"-5"5 : 
OLOR 0,3:FRINT"ENT"s : COLOR 2,0: Z#=INFU 
TH(L):1F ASC(Z#)<>13 THEN 2100 
2110 CONSOLE, ,,,0 
2120 RETURN 
2130 IF ERR=11 THEN RESUME NEXT 
2140 IF ERR=é THEN CFT=CFT+151F CFT>9 
THEN LOCATE G,24:COLOR3,0: FRINT "valeur 
s trop grandes"; :LOCATES4,24:COLORZ, 0: 
PRINT "-2": 2: COLORO, 3: FRINT"ENT"; : CFT=O: 
COLOR2,0: A$=INFUTS (1) : RESUME 1320 ELSE 
RESUME NEXT 
2150 IF ERR=S AND TST=0 THEN COLORS 0: 
LOCATE 0,24:FRINT'"Valeurs impossibles" 
::COLOR 2,G:LOCATE 34,24: FRINT"-2"3 : CD 
LOR 0,3:FPRINT"ENT"; : COLORZ, 0: R#=INFUT# 
(1L):1IF ASC(R#)<313 THEN GOTO 2130 ELSE 
RESUME 1320 
2160 IF ERR=S AND TST=1 THEN RESUME NE 
XT 
2170 CONSOLE, ,,,0:FRINT ERR3;ERL: RESUME 
PAROI ER 
2190 #4 COUREE R=F (T) *# 
2200 7 AFFINER 
2210 IF CS${>;"0" THEN GOTO 2250 
2220 IF VAL(A#)=4 THEN COLOR 1,0:FRINT 
“Courbe precedente": FO0R I=0 TO 1000: N 
EXT:LOCATEÙ,0,Gs:FRINT" 
"2GET (0,0)-(39,24),S% (5000) : COLOR 2 
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Le 
2230 IF VAL(A#)<>4 THEN CONSOLE, ,,,23L 
OCATE 6,0,0: FUT (0,0), T2 (5000) : COLOR 1, 
G:FRINT"£Courbe precedente":F0R I1=0 TO 
1000: NEXT:LOCATEO, 0,0: PRINT" 
"eGET(0,02-(39,24),S4(5000) : 
COUPE 2,0 
2240 LHERTES#, 243 COLOR? ,0:FRINT"-5"3:C 
OLOR à, 3: PRINT"ENT"; à COLOR _… Z$=INFU 
T£(1): IF ASC(Z#)<13 THEN 2240 
2250 ON EFRFOR GOTO 3090 
2240 CONSOLE, ,,,03:CLS:SCREEN 2,0,0 
2270 Ti=0:T2=0: X1=0: X2=0: Y1=0: Y2=0s: TST 
=0:FA=O. 1 
2280 LOCATE 5,0,0:FRINT'ENTREE des par 
ametres 
2290 LOCATE 0,24,0:FRINT"Modification 
de la fonction "5 s COLORG, 3: FRIN 
T'F1"3: COLOR 2,0 
2300 LOCATE 0,2,1:FRINT'VALEUR inferie 
ure de T ?"3;:LOCATE 25,2, 
2310 Z+="":D0 
2320 AZF=INFUT# (1) 
2330 IF AZ#F-CHR£ (13) THEN EXIT 
2340 IF AZ#$=-CHR$ (144) THEN MDF=1:EXIT 
23930 IF AZH=CHR#£ (6) THEN IF Z#<2"" THE 
N ARR RTS. à Re 
:G07T0 2390 ELSE FRINT AZ#;" "::GO0T0 € 
80 
2360 IF (ASC(AZH)<40 OR ASC(AZF) 57) T 
HEN GOTO 2390 
2370 ZF=Z7$+A1# 
2380 LOCATE 25,2,1:FRINT 2#; 
2390 LOOF 
2400 IF MDF=1 THEN MDF=O:A#="35":G0TO 2 
20 ELSE Ti=VAL(Z#) 
2410 LOCATE G,4,1:FRINT"VALEUR superie 
ure de T ?"s$:LOCATE 25,4,1 
2420 Z$="":D0 
2430 AZ$=INFUT# (1) 
2440 IF AZF=CHRF (13) THEN EXIT 
2450 IF AZF=CHR# (144) THEN MDF=1:EXIT 
2440 IF AZ#=CHRE(E) THEN IF Z#£5"" THE 
N ZS=LEFTS(Z#,LENC(Z#)-1):FRINTAZ#s" "5 
:GOTO 2490 ELSE FRINT A2$;" "::GOT0 24 
90 
2470 IF (ASC(AZ#)£40 OR ASC(AZ#H) 257) T 
HEN GOTO 2500 
24800 ZF=7#F+A7# 
2490 LOCATE 25,4,1:FRINT Z#: 
2300 LOOF 
2310 IF MDF=1 THEN MDF=0:4$="53":6G0T0 2 
” ELSE T2=VAL(Z#) 
2920 IF TZÆ=T1 THEN GOTO 2250 
2530 LOCATE 0,14,1:FRINT"'FAS de T (0.1 
par defaut) 7"::LOCATE 28,14,1 
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2540 FA$="";:D0 
25330 AZF=INFUTS (1) 
2060 ÏIF AZ$=-CHR# (13) THEN EXIT 
2970 IF AZ$=CHR# (144) THEN MDF=1:EXIT 
2900 IF AZ$F=CHR#(S) THEN IF FA#<:"" TH 
EN FAS$=LEFT#(FAS,LEN(FAS#)-1):FRINTAZ#:; 
" "ss GOTO 2610 ELSE FRINT A2$#;" ";:G0T 
Q 2610 
2590 IF (ASC(AZ$){40 OR ASC(AZ#):57) T 
HEN GSOTO 2462û 
2600 PAF=FASTAZE 
2610 LOCATE 28,14,1:FRINT Fâf: 
Z620 LOOF 
2630 IF MDF=1 THEN MDF=0:4$="35";:G0OTO 2 
20 
2440 FA=VAL(FAS): IF FA=0 THEN FASO. 1:F 
A$="0, 1" 
2450 LOCATE 28,14,1::FRINT FAf: 
26460 CONSOLEZ4 ,24: CLS: CONSOLEO, 24 
2670 IF CS$="0" THEN LO$="0":LOCATE, ,0 
:507T0 2690 
2680 LOCATE 0,16,0:FRINT"'REFERE NORME 
O/N: "s:lO#= INPUTS (1) : FRINT LOF 
2490 LOCATE 10,22: FRINT"'Caleul des val 
eurs extremes"; :COLORI,0:LOCATE 20,23: 
PRINT"FATIENCE. "3 : COLOR?,0 
2700 IF LO$="0" OR LO+#="o" THEN LO=1 E 
LSE LO=0 
2710 T=T1:R1=EVAL (CRUNCHS (F#) } : X1=R1xC 
ANR E OR STANe? 
2720 T=T2:R2=EVAL (CRUNCH£ (F4) ) : XZ=RE*C 
OST): YZ=RZKSIN UT) 
2730 IF X1:X2 THEN SWAF X1,X2 
2740 IF Y1:Y2 THEN SUWAF Y1,Y2 
2750 TST=1 
2760 FOR T= Ti TO T2 STEF 0.7 
2770 R=EVAL (CRUNCHE (F#) ) : X=RKCOS UT) : Y= 
RYSIN(T) 
2780 X1=MIN(X1, X) 
2790 X2=MAX(X2, X) 
2800 YI=MINCY1,Y) 
2810 Y2=MAX (Y2,Y) 
2820 NEXT 
2830 CONSOLE 10,24:CLS:CONSOLEO , 74 
2940 LOCATE 0,10,0:FRINT"'VALEUR inferi 
eure de Y":Y1 
2850 LOCATE 0,12,0:FRINT"VALEUR superi 
eure de Y":Y2 
2860 LOCATE 0,14,0:PRINT"'VALEUR inferi 
“eure de X";xX1 
: 2870 LOCATE 0,16,0:FRINT"VALEUR superi 
eure de X":X2 
» 250 LOCATE 0,23,0:PFRINT" Confirmation 
“ 7: O/N "ss: R#S=INFUT# (1) 
… 2890 IF CS$="0" THEN CLS:CONSOLE 
“ GOTO 2990 
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TEORISTE 


 TÉOPROMO 


Cette fois ce sont les possesseurs de MOS5 et de T07/70 qui vont pouvoir se réjouir : TEO leur propose 
des ouvrages qui ont fait date dans l'histoire des micros Thomson, à des prix qui, eux aussi, feront date. 


© La découverte du TO7 Par Dominique Schraen et Maurice Charbit 


Cet ouvrage s'adresse aux utilisateurs du TO7 souhaitant s'initier à la program- 
mation en Basic. Conçu pour la débutant, son approche est progressive, 
attrayante et agrémentée de nombreux exemples et exercices. Après un 
apprentissage des instructions classiques du Basic, le lecteur découvre le jeu 
pañiculièrement prenant des instructions graphiques ainsi que l'utilisation du 
crayon optique. | peut alors se lancer dans la programmation de ses propres jeux 
vidéo. 176 pages. 40,00F. 


@)- La découverte du MO5 Par Dominique Schraen et Maurice Charbit 


Cet ouvrage s'adresse aux utilisateurs du MOS souhaïtant s'initier à la program- 
mation en Basic. Conçu pour le débutant, son approche est progressive, 
attrayante et agrémentée de nombreux exemples et exercices. Après un 
apprentissage des instructions classiques du Basic, le lecteur découvre le jeu 
particulièrement puissant des instructions graphiques ainsi que l'utilisation du 
crayon optique. Il paut alors se lancer dans la programmation de ses propres jeux 
vidéo. 174 pages. 40,00F. 


G} Exercices pour MO5 Par Dominique Schraen et Maurice Charbit 


Ce livre est destiné à tous ceux qui ont une connaissance élémentaire du Basic 
et désirent la mettre en pratique sur des exemples concrets. Ca recueil 
d'exercices est Une invitation à l'analyse et à la programmation de problèmes 
simples et fréquemment rencontrés (calculs simples, tirage de nombres, traitement 
de chaînes de caractères, jeux du morpion, pendu, etc.). L'énoncé de chaque 
exercice est suivi de son analyse. Une ou deux solutions commentées sont 
proposées. 136 pages. 40,00F. 


@- Jeux, trucs et comptes par Michel Beneltoul 


Ce livre propose aux novices de la programmation 32 programmes en Basic 
commentés et décrits àl'aide d'un exemple d'exécution et d'un organigramme. 
Fonctions Basic, jeux passifs et interactifs, intenludes, “trucs”, programmes de 
gestion et routines, l'ensemble de ce recueil leur permettra d'utiliser au mieux 
toutes les fonctions de leur TO7. 160 pages. 40,00F. 


(6)- Boîte à outiis pour MO5 et TO7/70 par Michel Martin 

Cette ouvrage n'a pas la prétention de livrer le secret des grandes applications 
informatiques, mais bien de mettre à la disposition des utilisateurs des petits 
programmes tout prêts qui leur permettront derésoudre de nombreux problèmes 
de la vie quotidienne. 128 pages. 15,00F. 


(©) - Collection TO7 TO7/70 : 


La découverte du TO7 + Jeux, trucs et comptes + Boîte à outils pour MOS et 
TO7/70 : 95,00 F (frais de port inclus) soit 126 % de réduction! 


(D- Collection MOS : 
La découverte du MOS + Exercices pour MOS + Boîte à outiis pour MOS et 
T07/70 : 95,00 F (frais de port inclus) soit 115 % de réduction| 





Atiention : Pour 6 et 7, dès épuisement du stock de l'un des ouvrages de la 
collection, les commandes de collection complète Seront honorées en remplaçant 
l'ouvrage en question par les TEO n° 1 et 2 nouvelle version. 


Pour toute commande autre que les offres groupées, a]outez 10,00 F pour frais de port. 


CG eo ec oc eo om oo om oo eo 


Je désire recevoir l'(es) ouvrage(s) suivant(s) : (remplir en lettres capitales) 





NOM : 
PRENOM : 


ADRESSE : 


CODE POSTAL : D ad Lai 1 
VILLE : 


Ci-joint mon règlement par chèque à l'ordre de : TEO - 84, rue du 1er Mars 1943 - 69100 VILLEURBANNE 
BON A RETOURNER A LA MEME ADRESSE 
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TEORISTE 


POUR RECEVOIR CHEZ VOUS, 
TOUTE L’'ACTUALITE DES MICROS THOMSON 





ABONNEZ-VOUS 





Tenez-vous au courant des dernières informations concer- 
nant la micro des 8 bits et devenez un lecteur privilégié en 
recevant TEO avant les autres. 


N'HESITEZ-PAS, ABONNEZ-VOUS. 


IL VOUS MANQUE D'ANCIENS NUMEROS ? 


Nous pouvons vous aider dans la limite de la disponibilité de 
nos stocks. 


TEOPHILE ANCIENNE VERSION 


(au minimum 5 numéros) 
Attention ! Les numéros 7 et 8 ne sont plus disponibles. 


Numéros disponibies : 5, 6, 9, 11, 12, 13: 
1 numéro : 15 francs (précisez les numéros) 
La collection complète : 70 francs 


TEO NOUVELLE VERSION 


Numéros 1 à 7: 
À NUMÉTO : 20 francs (précisez les numéros) 
7 numéros : 120 francs 


Numéros 7 à 17: 


ANUMÉTO esrnncns 20 francs (précisez les numéros) 
10 numéros : 180 francs 


PARTICIPATION AUX FRAIS D'EXPEDITION 


Pour 5 numéros et plus : 10,00 F 
Pour là collection complète : 20,00 F 
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BULLETIN D'ABONNEMENT 
NOM : 
PRENOM : 
ADRESSE : 
CODE POSTAL : VILLE : 


Je m'abonne pour 6 numéros à 150 francs 
Je m'abonne pour 12 numéros à 300 francs 
Je désire recevoir les anciens numéros de TEO que je 
précise ci-dessous et vous joins un chèque de + 10 ou 20 
francs de frais de port, à l'ordre de TEO. 


BON DE COMMANDE ANCIENS NUMEROS 


TEOPHILE 


70 F 
15F 


TÉOPHILE n° 1 à 7 


20 F 


OO 


la collection 
les n° 


la collection 
les n° 


TÉOPHILE n° 7 à 17 


la coliection 
les n° 


FRAIS DE PORT 
Chèque à l'ordre de TEO 


Précisez la machine que vous utilisez- 


Signature : Signature des parents : 


(si mineur) 


Bulletin à retourner sous enveloppe affranchie avec votre 
chèque à l'ordre de TEO à : PROMEDIA, Service Abonne- 
ment, 3 rue des 2 places, 69009 LYON Tél : 78/83/84/84 
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Achète "Théophile" n° 1, 
2,9, 10, 11, 12auprix de 
5 F le numéro. Vends 
logiciel sur K7 pour 
MO5/MO6/TO7-70 et 
vends ou échange nom- 
breux logiciels sur DSK 
3 1/2 pour TO8/TOS/ 
TO9+. Rémy CARIA 12 
rue du Général Leclerc 
78360 MONTESSON 
Tél : 39/52/42/54 





Vends TO9.128 KO lan- 
gage basic 1,0 + para- 
graphe + fichier (+ pa- 
plier) + imprimante + 
souris + crayon optique 
+ 10 disk prog + 4 jeux + 
manette et dérivateur : 7 
000 F, total : 10 000 F 
Bernard GOURLEZ 44 
rue du Tiloy 62220 
CARVIN 

Tél : 21/74/04/93 


Vends TO9TBE:2900F, 
cours analyste Informa- 
tique niveau Bac + 2 (é- 
cole universelle) tous 
documents y compris 
corrigés :995 F:livres, re- 
vues, matériel electroni- 
que etinformatique (liste 
sur demande). Paul GE- 
LINEAU La Hubaudière 
La Chapelle-Rousselin 
49120 CHEMILLE 

Tél : 41/30/75/37 





Vends MO6 (1 an sous 
garantie) + LEPintégré + 
manette + péri. + logi- 
ciels (blue war - dieux du 
stade - vol solo - anima- 
tix) + NBX listings et li- 
vres + programmes en- 
registrés + guide : 2 790 
F. Mickaël GUILLOIS Le 
Bignon 72290 TEILLE 
Tél : 43/27/47/88 


Vends TO8 + lecteur K7 
et disquette + 20 jeux + 
Ivres + crayon: 2 500 F. 
David GLEMAREC 
Lanveron 29170 SAINT- 
EVARZEC 

Tél : 98/56/22/93 





Vends MOS5 + extension 
de mémoire + crayon 
optique à prix exception- 
nel. Erwan HOIZEY 118 
allée Jules Auffret93320 
PAVILLONS SOUS 
BOIS Tél : 48/02/00/93 





Cherche contact TOB, 
TO9, TO9+ avec dis- 
quette 3 1/2 pouces pour 
échange de program- 
mes et d'idée. Philippe 
ORFEO Le Mail Bât G 
Rue de la Crau 13014 
MARSEILLE 

Tél : 01/98/65/64 


Vends lots : pour TO7- 
70, MOS, Sortilèges, Sa- 
phir, Scarfinger : 60 F ou 
foot, karaté, mine de dia- 
mants : 60 F au lieu de 
150 F; pour TO7, TOB, 
5e axe : 50 F l'un ; les 
dieux du stade Il : 70F; 
math, français pour TO7, 
TOS, MOS, prix à débat- 
tre. Yann QUINQUIS 
Provence village 29 pla- 
ce du roi rêne, 83130 LA 
GARDE Tél : 94/75/56/14 





TO9 + moniteur couleur 
HR + souris + LEP +int. 
man. + 2 manettes + NX 
LOG : 5 500 F (à débat- 
tre) ; imprimante Thom- 
son PR 90600 : 1 800 F. 
Patrick GRANIER Las- 
ternes Capdenac-le- 
Haut 46100 FIGEAC Tél 
65/34/62/77 (après 19 h). 


TEORISTE 


ANNONCES 


Recherche lecteur de _ 
disquette 5” 1/4 et TO7- 
70 en Seine et Marne 
pour correspondre. Syl- 
vain SALAMERO 2 bis 
rue Raymond Egjlin 
77176 SAVIGNY-LE- 
TEMPLE Tél:60/63/08/30 





Recherche logiciel FIL : 
comptabilité géné. ex- 
tension 256 K TOS, ur- 
gent. Jean-Paul AUBRY 
13 rue Gambetta 45500 
GIEN Tél : 38/67/21/63 





Vends MOS + 2 manet- 
tes + crayon optique + 
jeux Airbus + Pulsar IT + 
Flipper, livres et casset- 
tes. Prix : 2 000 F. Henri 
FORMANTIN 30 rue 
Robert Keller 93160 
NOISY LE GRAND 

Tél : 43/03/44/69 


Attention : les prix de la TEOPROMO de ce numéro sont hyper compressés 


(plus de 100%). Malheureusement, les stocks aussi, alors dépêchez-vous de 
passer commande avant qu'il ne soit trop tard ! 


Vends MOS + stylo opt- 
que + LEP + Interf + 2 
manettes + jeux. Etat 
neuf : 2 000 F. L LE 
ROUX 8E allée P. Tu- 
moine 35000 RENNES 
Tél : 99/33/01/55 





Echange logiciels ou uti- 
litaires pour D7 TOB 3,5 
p (si possible en région 
parisienne). Yann CHA- 
TEL 36 rue des Peu- 
pliers 78650 BEYNES 
Tél : 34/89/30/78 





Vends TO7-70 (clavier) 
+ lecteur de K7 + exten- 
sion manette + manette 
+ cartouche basic + 7 
jeux : 1 700 F (à débat- 
te). Eric DEBEVER 6 
rue Félix Toussaint 
78800 HOUILLES 

Tél : 39/68/53/94 (après 
17h 30). 





Vends Interfaces pour 
TO-MO dontcomposeur 
automatique de numé- 
ros de téléphone, sono- 
risateur de K7 program- 
mes, interfaces entrées/ 
Tél : 26/64/32/22 





intéressé par TO 16PC, 
recherche commerçant 
reprenant ou particuller 
achetant TOB8 avec 
moniteur couleur, 
manettes, crayon, 
disquette 3 “ 1/2 avec 
jeux nombreux sur 
disquettes et cartou- 
ches : 5000F. 
Philippe JUPIN 

34 rue Louwyck 

59320 HAUBOUNDIN 
Tél : 20/44/72/26 





Vends à bas prix NBX 
logiciels pour TO8, TOS, 
TO8+ sur disk 3,5. 
D TROISGROS 

Rue de la Fontaine La- 
vanche 

21230 ARNAY LE DUC 
Tél : 80/84/22/44 





Achète, pour TO7-70, 
cassette ou disk "Parti- 
cipe Passé"”et"La Divisi- 
bilité” édités par Logicia. 
Pierre CARAYOL Mou- 
lin-Mage 81320 MURAT 
SUR VEBRE. 





CHERCHE dos basic 
1.0 pour TO9 + auto-ini- 
tlation basic 128. 
Stéphane  DUBUS 
Avenue des Tucs, rési- 
dence Pignada A 17, 
40510  SEIGNOSSE 
PENON. 
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Possède nbx jeux sur 
TO7-70 K7;cherche 
Vampire, MGT, Dieux 
du stade, Las Vegas, 
Avenger, l'Héritage I, 
HMS Cobra, Bluewar, 
pour échanges. Jean- 
Philippe PONZEVERA 
6 boulevard Benielli 
20000 AJACCIO 

Tél : 95/50/12/32 





Vends TO7-70 + basic 
1.0 + lecteur de cas- 
settes + manettes de 
jeux : 1 000 F. Yannick 
GARCIA 174 route de 
Langolran 33670 
CREON Tél : 55/23/06/85 





Recherche  Chopilfer 
pour MOS. Michel BO- 
QUELET 56 rue Cante- 
mele 76220 GOUR- 
NAY-EN-BRAY Tél: 
35:09:07:89 (après 19h). 








Vends TO7 (UC), 
lecteur, extension 
MEM 16 K, 2 manet- 
tes jeux, adaptateur, 
3 cartouches +7 cas- 
settes jeux, manuel 
basic, 4TEO. Valeur : 
4 000 F, vendu 

2 000 F. 

Michèle  CHAMBON- 
NEAU 

6 place des Mimosas 
37270 MONTLOUIS 
Tél : 47/45/13/08 





Cherche contact sur 
Vaucluse pour échange 
de logiciels, pro- 
grammes et astuces 
sur TOB. : 
Jean-Félix PERDI- 
GUIER 280 rue des 
Ecoles 84450 JON- 
QUERETTES 

Tél : 90/22/55/16 
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Vends programme de 
composition de pages 
VIDEOTEXT TO9+ 
TOS8. Disquette 250 F 
comprenant Un SUIVI + 
conseils de misa au 
point serveur. Max 
HAGENBURGER 
30190 St CHAPTES 
Tél : 66/81/25/88. 
Serveur : n°66/81/26/20 





Vends extension télé- 
matique Thomson TO7- 
TO9 + cartouche télé- 
chargement + livret. 
Câble Peritel. 

Roger LHOMBREAUD 
28 avenue Gambetta 
78400 CHATOU 

Tél : 39/52/85/10 (di- 
manche matin). 





Vends thomson TO7- 
70. Magnéto, moniteur 
couleur Thomson, ex- 
tension musique ETJX + 
2 manettes, cartouche 
basic et assembleur ; 
nombreux jeux (K7 ou 
cartouche) + livres. Le 
tout 5 000 F. 

Pierre PETITPAS 

5 rue de Metz 77400 
LAGNY/MARNE 

Tél : 64/02/00/82 





Recherche correspon- 
dant sur TO9 pour 
échanger logiciels de jeu 
sur disk. Jean-Michel 
CAMUS 4 rue de Ma- 
noise 02000 LAON 

Tél : 23/79/11/18 





Vends MO-TO. K7 de 
karaté + dames U.S.A. + 
S.tennis +F.B.I.(100F). 
Saphir + foot n° 10 + 
runway 2 (100 F). Sorti- 
lèges + la nult des tem- 
pliers + androïdes (100 
F), originaux. Le tout 250 
F. Michel MOSER 17 rue 
Sous Bols Taillecourt 
25400 AUDINCOURT 
Tél : 81/95/20/74 





Achète cartouche Color- 
paint jusqu'à 200 F. 
Vends cartouche Mélo- 


dia, Motus, Logicod, 
Crypto, Airbus, Geminl, 
46 


Atomium etc. 50 F 
plèce. David BRIAN 6 
allée des Alouettes 
78200 MAGNANVILLE 
Tél : 30/92/03/83 





Vends 1 250 F TOB + 
LEP + crayon optique + 
cartouches calculatrice 
et bibliothèque + 1 livre : 
le Manuel Technique, en 
emballage d'origine, 
neuf. Alain FREHAUT 
rue Heureuse Féron 
59610 FOURMIES 

Tél : 27/60/12/16 





Recherche lecteur DKS 
5"1/4 pour TO7-70 + 
contrôleur. Daniel JAR- 
RY 10 chemin des Lan- 
des 49240 AVRILLE 
Tél : 41/69/28/19 





Vends, avec notice, 
contrôleur de communi- 
cations. CC 90-232 : 
200 F. Raphaël BERNA 
15 passage du Génie 
75012 PARIS 

Tél : 43/72/64/64 





Vends LEP T07-70 TO9 
250 F, DSK Las Vegas 
900 F, K7 Un mot pour le 
compte 100 F, K7 Poiitik 
Poker 50 F. Achète M 
Banque TO prix raison- 
nable. Joël PERTOIS 41 
route nationale-Mardeuil 
51200 EPERNAY 

Tél : 26/51/73/87 





Vends Interface incrus- 
tation 150 F, statistiques 
TO7/TO9 200 F, graphi- 
que TO7/TO9 200 F, 
Airbus 300 F, Atomium 
100 F, Les sept magji- 
ciens 100 F, Buds 1.2.3 
50 F, carte de France 
TO7 75 F, Yams soli- 
taire/Poker 50 F, Pouss- 
pan 50F, Cyberiab S0F, 
tous originaux avec do- 
cumentation. 

Marcel TOULON 

22 rue des Peupliers 
78790 SEPTEUIL 





Vends TO9 + moniteur 
couleur + 2e lecteur de 
disquettes + imprimante 


PR 90612 + jeux + ma- 
nette de jeux + colorcalc 
+ malette gestion fil + 
autres logiciels compta, 
5 500 F. 

Benoit LECLERC 21 rue 
de Voisins 77410 
CLAYE SOUILLY 

Tél : 60/26/33/33 





Cherche corres- 
pondant(e}s TOB8 pour 
échange de jeux sur 
cassette. Laurence 
BALIGOUST 1 chemin 
de l'Olivaie 06340 
LA TRINITE 

Tél : 93/54/21/13 





Vends U.C TOB, manet- 
tes, jeux (cause double 
emploi). Marcel GEN- 
TET 102 avenue Géné- 
ral Leclerc C.O. 30 
54035 NANCY Cedex 
Tél : 83/41/02/35 





Vends TO7-70 + Magné- 
to + colorpaint + cube 
basic + livres. Etat neuf. 
Prix 2 500 F. 

Tél : 97/22/06/30 





Achète cartouche baslc 
128 et extension mé- 
moire 64K pour TO7-70. 
Jacky DELORME 41 
avenue de la Forêt de 
bord 27340 Pont de l'Ar- 
che. 





Vends TO8 + lecteur 
disq 640K + crayon opti- 
que + multplan + fich 
dos : 2 100F (détail pos- 
sible}. Michel SIMILLON 
21 rue Dr Vaïllant 78210 
SAINT CYR 

Tél : 30/58/18/47 (après 
19h). 





Vends ou échange NBX 
jeux Bob Morane {les 3), 
2 coffrets Filet 10autres 
jeux pour TO8-TO9- 
TO9+. Cherche KYA, 
loriciel hit 2 et grand prix 
500, à bas prix (- de 
150F). Bertrand MERLE 
285 rue des Grilons 
01000 SAINT DENIS 
LES BOURGS 

Tél : 74/21/77/40 
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Vends TO7-70 clavier 
mécanique + Impri- 
mante PR90-600 + 
magnéto K7 + manettes 
de jeu + basic + assem- 
bieur + Scriptor +airbus : 
3 000 F. TV Thomson C 
25 TF 30 25 CM : 2 000. 
Michel ARNAUT 68 rue 
Juks Guesde 92240 
MALAKOFF 

Tél : 47/36/38/06 





Revends TO7-70, LEP, 
2 manettes baslc + 
nombreux programmes, 
2 000 F environ. Achète 
ST + jeux (- de 2 000 F). 
Florent PESSAUD 8 rue 
du Verger du parc 38080 
L'ISLE D'ABEAU 

Tél : 78/27/00/31 





TO cherche contacts 
pour écange nombreux 
(utilitaires et jeux). 
A FOUGEROUZE 
1 rue des Acacias 
91220 BRETIGNY SUR 
ORGE Tél : 60/84/21/84 
(entre 17het19 heures). 





Vends TO7-70 clavier 
mécanique, cartouche 
basic 1.0 + QDD + 22 
DSK + 3 manuels + pic- 
tor + synthetia : 1 000F. 
Yann CHEVALIER 15 
rue André Messager 
59223 RONCQ 





Possesseur TO8 cher- 
che contacts pour 
achats de logiciels, jeux 
utllitaires et éducatifs. 
Patrick LE GARGAS- 
SON 2 rue de la Digue 
68490 CHALAMPE 

Tél : 89/26/28/01 





Vends TO7-70 + LEP + 
QDD + NBX livres et 
jeux + pictor + synthetia 
+assembleur +joystick : 
10000F,cède3000F (à 
débattre). 

Cyrille RIVALLAN 29 
rue Georges Brassens 
27140 GISORS 





Vends Imprimante 80 
colonnes pour cause de 
double emploi pour ordi- 


ANNONCES 


nateur MSX ou pour VG 
5000 : 2 500 F neuve. 
Arthur DORET 6 place 
du Général De Gaulle 
02140 VERVINS 
Tél : 23/98/02/90 





Vends TO8 (UC) + 
moniteur couleur HR + 
lecteur3 1/2 +Joysticks + 
imprimante PR 90-600 + 
crayon optique + souris 
+ 3 livres de program- 
mes + livre d'assem- 
bleur + 30 disquettas 
avec environ 150 jeux 
et utilitaires. Le tout pour 
10 000 F. 

Tél : 39/52/42/54 (après 
17h). 





A saisir pour MOS5, ex- 
tension permettant d'uti- 
liser une TV noir etblanc 
sans Peritel. Prix :300F. 
Cherche contact TO8 
pour échanges. 

Hervé ROBIN 52 rue de 
Warnes  Roquetolre 
62120 AIRE/LYS 

Tél : 21/39/83/47 

EEE 

Cherche contactsérieux 
pour échanger plusieurs 
anciens numéros TEO 
contre plus d'une cen- 
taine de programmes 
non professionnels 
MOS5-MO6 de tous gen- 
res ou livres program- 
mes pour Thomson. 
Pascal LAURENT 5 rue 
d'Orival 14100 LISIEUX 
Tél : 31/62/80/56 





Vends TO9 : 2700 F ; 
moniteur couleur : 1 500 
F; mono : 600 F ; TO9 + 
couleur : 4 000 F. 
Dominique ROSUEL 
3 rue Gabriel-Péri 
95600 EAUBONNE 

Tél : (1) 39/59/32/05 





Cherche correspon- 
dants pour TO9 ; 
échange de jeux sur 
Orléans. Christophe 
VOLFINGER 2 place du 
Val 45100 ORLEANS 
Tél : 38/69/12/55 





TEO 


Vends QDD + disquet- 
tes vierges + vampire + 
vol solo + DOS + guide 
du QDD : 700 F. Excel- 
lent état. Nicolas AMET 
11 Impasse du Graal 
29100 DOUARNENEZ 
Tél : 98/74/13/29 





Vous connaissez quel- 
qu'un qui possède une 
console Phillps, vous 
êtes possesseur, ne 
vous découragez pas, je 
possède plusieurs car- 
touches pour C 52, C 
7000, etc... Mise à prix : 
260 F (à débattre) ; va- 
leur réelle : de 300 à 360 
F l'une). Réponse assu- 
rée. Stéphane KERNER 
6 rue des Selliers 94440 
MAROLLES-EN- 
BRIVE. 





Echange logiciels (TO8, 
TO®, TO9+) jeux, utilitai- 
res, scolaires. Claude 
HERSANT  Chapelle- 
Royale 28290 ARROU 
Tél : 37/49/21/09 





Echange jeux MOS, 
MO6 dont : Green Beret, 
Numéro 10, Rotorwar, 
Krack out, Flipper, Mis- 
sion en rafale, etc. 
Alexandre VELENOVS- 
KY 63 rue Anatole 
France 10100 RAMILLY 
SIS Tél : 25/24/41/12 





Vends imprimante 
Thomson 80 colonnes 
PR 90-612 (pour série 
MO ou TO) avec 2 ru- 
bans encreurs, sous 
garantie, parfait état, 
valeur : 2700F, ven- 
due : 1 500 F. Michel 
HEDIARD 3 rue Jules 
Verre Pinterville 27400 
LOUVIERS Tél : 32/40/ 
00/83 ou 32/40/73/84 





Vends TO7-70 + LEP + 
MO7 basic 1.0 + 10 jeux 
(1789, Mandragore...). 
Prix : 2 490 F (valeur : 4 
800 F). Nicolas LE- 
ROUX 8 bis Impasse 
Saint-Laurent 06000 
NICE Tél : 93/44/22/88 





Où peut-on trouver les 
disquettes AB Soft 
international n° 9et n° 
10 en 3 1/2 pour Thom- 
son (dépositaire en 
France)? Merci. 
Caroline TURCOT 
13 rue Ment Roalhon Le 
Braden 29000 QUIM- 
PER. 





Achète TOB, logiciels, 
imprimante pour TOS. 
P JOURDAN Les Vana- 
des 30131 PUJANT 
Tél : 90/25/19/74 





Vends MOS5 Thomson + 
lecteur enregistreur de 
programmes + crayon 
optique + 5 ou 6 jeux 
(éducatifs, création, 
aventure, arcade) : 

1 400 F (à débattre). 
Xavier DUREL 7 bis 
avenue dela République 
94600 CHOISY LE ROI 
Tél : 48/52/49/88 





Vends DSK 3" 1/2 pour 


. TO8, TOS, TO9+ : mis- 


sions en rafale, blue war 
1, sapiens, HMS Cobra, 
space tunnel, les pas- 
sagers du vent. 
Frédéric ROUX 

27 avenue des Bouriot- 
tes 19360 MALEMORT 
Tél : 55/23/0291 (après 
18h). 





Vends TOB + drive + 
QDD + souris + crayon 
optique +2joysticks + 25 
jeux + revues + bour- 
quins. Le tout : 3 000 F. 
Stanislas COUVREUR 
Les Furons Cedex 61, 
06330 ROQUEFORT 
LES PINS 





Vends logiciels : les 
aventures du KA, green 
beret, numéro 10, busi- 
ness+, factorisation, 
équation et inéquation : 
50 F l'un ou 80 F les 
deux ou 95 F les trois 
ou 100 Fles quatre (cas- 
settes). 

Laurence BALIGOUST 
1 chemin de l'Olivale 
06340 LA TRINITE. 





Vends imprimante PR 
90055 + câble + contrè- 
leur pour TO7-70 :800F, 
lecteur 320 KO TO MOS 
pouces 1/4 : 800 F, 
incrustation TO MO : 
200 F, Interface CANDI : 
500 F, logiciels divers. 
Henri BIM 
1bischeminde labrosse 
60305 AUMONT 





Vends 2 000 F lecteur 
disquette DFDD 320 K 
pour TO7-70, TO9 avec 
programmes compta 
originaux, excellent état, 
DSK 5" 1/4 + contrôleur. 
Daniel GEAY Osmoy 
Saint-Valéry 76660 
LONDINIERES 

Tél : 35/93/21/04 





Vends MOS5 + LEP + 
moniteur MONO + 
crayon optique + joys- 
ticks + 2 jeux + 1 jeux 
utilitaire : 1 300 F. 
Alexandre BRAGA 

3 square Kennedy 
78120 BAMBOUILLET 
Tél : 30/41/71/48 (après 
17 h 30). 





Vends lecteur disquette 
DD 90-320 + contrôleur 
CD 90-640 + manuel + 
livre & disquette du dos : 
1200F. 

Raphaël BERNA 

15 passage du Génle 
75012 PARIS 

Tél : 43/72/64/64 





Vends nombreux logi- 
ciels et livres pour TO7- 
70. Prix très Intéressant. 
Joseph PERRIN 

Le  Cotter-Colombe 
38690 LE GRAND 
LEMPS 

Tél : 76/55/93/00 (après 
17h). 





Recherche Basic 128 
pour TO7. Vends Impri- 
mante Mannesman Tal- 
y compatible IBM + 
émulateur pour TO7-70: 
1 000 F. Patrick LAMI 
22 square du Nord 
95500 GONESIE 

Tél : 39/85/12/65 
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TO9 + UC 512K, moni- 
teur couleur HR, 1 DSK, 
2 joysticks, souris + 
nombreux logiciels mui- 
tiplan + jeux : valeur 6 
000 F, vendus à 50 %. 
Yves LE DUIC 23 rue de 
Charnay 78990 ELAN- 
COURT Tél : 30/62/33/ 
80 (entre 20 het 21 h). 





Vends TO8 + moniteur 
couleur + lecteur 3" 1/2+ 
souris + jeu + livres. 
Prix : 4 200 F. François 
BRUNET 6 allée des 
Alysses 91300 MASSY 
Tél : 69/20/16/31 (après 
19h). 





Vends TOB + lecteur 
disk 3" 5 + moniteur 
couleur haute résolution 
+ manuel + jeux. Le tout, 
état neuf, cède 4 000 F. 
Pascal MONTIEL 132 
rue de Rosny 93100 
MONTREUIL 

Tél : 48/70/18/21 





Vends contrôleur unité 
de disquettes 640 KO 
CD 80640 pour TO7-70: 
225F + port ; vends TOO 
TBE : 1 950 F seulement 
+ un “Data Bank” de 
poche en cadeausivous 
répondezavant 15jours. 
Paul GELINEAU 
Résidence Leclerc, 2 
rue Bordage Chapeau 
49300 CHOLET 

Tél : 41/58/69/55 





TOB recherche corres- 
pondant pour échange 
idées programmes jeux. 
Cherche, à peët prix, 
imprimante TO8. Jé- 
rome ARNAUD Ha- 
meau de Virevlalle 
19000 TULLE Tél : 55/ 
26/18/35 





Vends MOS5 + LEP +jeux 
+ crayon opt + extention 
manette : prix : 1200 F. 
Eric DUBOIS 

10 allée de Belledonne 
38610 GIERES 

Tél : 76/89/44/95 





TEORISTE 


ANNONCES 


Cherche manuel photo- 
cople de meurtres gr. 
vitesse : le geste Artilac, 
L. Vegas, J. Debugg, 
Mission pas possible, 
affalre V. Cruz, Sapiens, 
Aigle d'Or, pour MOSs. 
Andrée GUENTHER 
Neustr 36 D-6638 
DILLINGEN RFA. 





Vends synthé.vocal 
pour tous THOMSON + 
3 logiciels et livre fin 
décembre 1987, avec 
facture, jamais servi, 
vendu 600 F au lieu de 
1000 F. Recherche lots 
de cartouche Coleco 
C.B.S +  périfériques. 
Philippe LAMIELLE 
30 faubourg d'Ambrail 
88000 EPINAL 

Tél : 29/82/32/43 (de 
18h30 à 20h). 





Recherche club infor- 
matique THOMSON 
dans la région d'Or- 
léans. Possède un TO8. 
David LACOUR 12 rue 
François Blondel 45380 
LA CHAPELLE STHES- 
MIN Tél : 36/43/32/96 
(de 19h à 20h). 





Cherche personne 
ayant T08 pour créer un 
ciub ou échanger logi- 
ciels. Virginie TOUPET 
20 rue Belleroue 57640 
VIGY. 





Vends  TO9-Moniteur 
couleur, 2 jousticks, 
souris, 5 jeux en ver- 
sion originales, 5 édu- 
catifs version originales 
(5e 4e 3e) N° program- 
mes divers. Jacques 
LAFEUILLE Condezay- 
gues 47500 FUMEL 
Tél : 59/71/26/66 





Vends ” super jeu pour 
MO6, TOB et TO9+" ain- 
si que de nombreux log|- 
ciel à moitié prix : TOB 
TO9 TOU+. Jean- 
Christian PEREZ 
Sansac Agend'Aveyron 
12630 GAGES 

Téi : 65/42/30/56 
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REPAIRE 


LE GRAND RETOUR (11) 


TE 


Et oui un éditorial c'est court, trop 
court pour vous parler en détail de tous 
les changements survenus dans notre 
revue ; alors voilà, je me glisse entreles 
programmes et la TEOPROMO pour 
vous en dire plus. 

Les changements sont nom- 
breux comme vous vous en êtes sûre- 
ment déjà rendu compte. Mais ne 
croyez pas que nous changeons au 
hasard, sans objectif, au contraire 1 Le 
sondage du numéro 16 nous a permis 
de connaître vos souhaits et nous 
essayons chaque fois de nous en rap- 
procher un peu plus. Comme en 
témoigne votre Important courrier, 
l'amorce de changement du n°17 vous 
a plu et vous souhaitez que nous pour- 
suivions dans ce sens. C’est pourquoi 
nous avons opté pour la formule que 
vous avez entre les mains. Tout 
d'abord le monde des MO et des TO. 
TEO teste pour vous les logiciels qui 
sortent sur les Thomson 8 bits. Tout 
nous intéresse : les jeux, les didacti- 
clels, les utilitaires. Ce numéro con- 
tient pau de jeux sur ordinateurs, et 
pour cause : les éditeurs attendent la 
fin de l'été pour faire une «rentrée en 
force». Le prochain numéro sera donc 
riche en divertissements variés. Mais 
TEO n'en reste pas là et vous propose 
des tests exclusifs sur des jeux en 
cours de développement chez les édl- 
teurs. 

La rubrique des didacticiels vous 
tient au courant detousies logiciels qui 
viennent en complément de l'ensei- 


gnement classique (et ils sont telle- 
ment patients). 

A propos d'utilitaires, Vous trou- 
verez dans le prochain numéro l'essai 
d’un logiciel très attendu : Le Journa- 
liste, la P.A.0. enfin sur Thomson. 

Mais TEO vous offre aussi la 
possibilité de taper vos propres pro- 
grammes grâce à une sélection des 
meilleurs logiciels que vous nous en- 
voyez. Vous êtes nombreux à nous 
écrire que c'est en modifiant ces 
listings enfonction de vos besoins que 
vous progressez le plus vite en pro- 
grammation. Pour vous aider encore 
plus, nous entamons dans ce numéro 
une sérle d'articles sur la structuration 
du basic. Dès le prochain numéro vous 
aurez des exemples et notamment un 
menu déroulant que vous pourrez 
implanter dans tous vos programmes. 

Enfin TEO porte un regard sur 
l'actualité informatique en général, les 
innovations, les exploits. Cela donne 
par exemple ce dossier sur la Domo- 
tique ; la prochaine fois il s'agira de la 
publicité par l'objet des grandes entre- 
prises informatiques, sans oublier que 
beaucoup de ces produits vous sont 
accessibles (PME, artisans ou particu- 
llers). 

Rendez-vous est donc pris à la 
rentrée pour un nouveau voyage dans 
le monde des TO et MO. 

TEOc’estchaquefoisunpeuplus 
vous. ll 


Le Rédacteur en Chef 





SI, comme nos deux complices 
en couverture, Vous voulez emmener 
votre micro-ordinateur Thomson à la 
montagne ou à la mer; n'hésitez pas 
et faites comme eux : plonger dans le 
monde du sport chez GO sport. GO 
sport, c'est un peu partout en France 
et notamment : Go sport, la Part Dieu, 
69003 LYON. 5 
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ADRESSES UTILES 
nee rerees 


GROUPE MAISON FAMILIALE : 
15, rue de Marignan 75008 PARIS. 
Tél : (1) 42/25/83/40 


OPEN TECH (formation conseil ensei- 
gnement assisté par ordinateur) : 
22 ter, rue des Essarts 69500 BRON. 
Tél : 78/76/18/31 


THOMSON (surveillance et automa- 
tisation) : 19, Av Dubonnet BP 25 
92403 COURBEVOIE cedex. 

Tél : 47/88/51/33 


DOMOCONCEFPT : 28, rue Broca 
75005 PARIS. Tél : (1) 43/37/71/53 


LORICIELS : 81, rue dela Procession 
92500 RUEIL MALMAISON. 
Tél : (1) 47/52 1/33 


EDIL : 20, rue Gossin 92120 MON- 
TROUGE. Téi : (1) 47/35/76/78 


CARRAZ EDITIONS : 46, rue Montgoi- 
fler 69006 LYON. Téi : 78/94/10/31 


INFOCIAL : 21, boulevard Montmar- 
tre 75082 PARIS CEDEX 02. 36.15 
sur Minitel. 


ASTERIX : 36.15 sur Minitel. 


F.LL (France Image Logiciels) : Tour 
Gallléni 2, 36, AV Galliéni 93175 
BAGNOLET. Tél : (1) 48/97/44/44 


LANKHOR : 2, rue de ia Gare Mille- 
mont 78940 LA QUEUE les YVELI- 
NES. Téi : 43/82/26/86 


CONSTRUCTIONS  MECANIQUES 
ET ELECTRONIQUES : Les Fiis de G. 
Parrier 43, rue Märius-Poncet 69290 St 
GENIS les OLLIERES. 

Tél : 78/57/05/06 
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EEE 
Il piratait pour 
la bonne cause 


Le 27 août 1987, un enseignant 
de l'IUT d'informatique de Toulouse a 
été inculpé pour contrefaçon de logi- 
ciels. Malgré les remous occasionnés 
par cette affaire de "gros sous” et de 
définition même de la mission péda- 
goglque des enseignants, le Ministre 
de la Cutture et de laCommunication 
n'a pas cru nécessaire de remanier la 
loi de 5/07/85. 

Le ministre a proposé l'élabora- 
tion pour les différents partenaires, 
éditeurs et universités, de contrats de 
"Licences Mixtes”. Cette modalité 
d'achat, la licence mixte, consiste à 
verser au vendeur de logiciels un prix 
forfaitaire qui recouvre le droit d'usage 
dans les conditions précises et com- 
porte la possibilité pour les usagers 
d'acheterles logiciels à des prix faibles. 
Cette définition de la licence mixte a été 
apportée par le ministre luimême en 
réponse à une question qui lui a été 
posée en février 1988. 


La licence mixte 

au secours 

des enseignants 
=] 


Monsieur Jacques Limouzi, a 
présenté le 6 avril 1988 une proposition 
de loitendant à compléter l'article 47 
de la grande loi du 5/07/85, en iui 
adjoignant le texte suivant : 


JURIDIQUE 





"Toutefois les Etablissements 
d'Enselgnement Supérieurpourront re- 
produire à partir d'un logiciel acquis les 
coples strictement nécessaires à leurs 
activités pédagogiques sans que ces 
copies puissent falre l'objet d'une 
utilisation à titre onéreux ou même 
gratuit, extérieure à l'Etablissement en 
cause”. 

Ce texte à notre avis est la seule 
bonne réponse à apporter au pro- 
blème cruclai que vivent les ensel- 
gnants en informatique ; son avantage 
essentiel est qu'il permet la reproduc- 


tion de logiciels sans que cette repro- 
duction n'excède les limites du raison- 
nable et sans qu'elle puisse être 
susceptible d'applications commercia- 
les ou para commerciales. 

Les vendeurs de logiciels doivent 
bien se rendre compte qu'en permet- 
tant à des enseignants de familiariser 
des étudiants, futurs acheteurs pour 
leur compte personnel ou pour le 
compte de leurs entreprises, ils rendent 
ainsi un juste tribut à la recherche tout 
en améliorant leur image de marque. M 





APPLE : POMME MAIS PAS POIRE ! 





Apple/Hewlett Packard et Microsoft, le Torchon brüle ! 


La célèbre firme américaine 
connuepoursaconvivialité se rebiffe et 
maltraîte ses voisins. 

En effet, Apple vient d'assigner 
Hewlett et Microsoft aux USA pour 
contrefaçon : ces demières auraient 
contrefait le "Look and Feil” de l'inter- 
face du Mac Intosh. Apple demande 
par le biais de ses avocats des Domma- 
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ges-Intérêts pour préjudice subi, avoi- 
sinant les 50 000 $. De plus, Apple 
exige lasaisie suivie de la destruction 
de tous les programmes connus sous 
les appellations Windows 2.03 et New 
Wave ainsi que toute version, révi- 
sions, modifications ou produits déri- 
vés des programmes précités. I 

À. À. 
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JURIDIQUE 


L'ANNUAIRE 
UNE AFFAIRE EN 


a plupart des entre- 
L prises font aujour- 
d'hui du marketing 
direct afin de prospecter 
plus largement et plus 
complètement une clien- 
tèle de plus en plus diffi- 
cile à atteindre. 
L'outil le plus abordable 
pour l'entreprise était le 
publi-postage ou “mai- 
ling", il fallait soit acheter 
un fichier à une entreprise 
spécialisée ou en consti- 
tuer un en recopiant les 
noms et adresses des 
clients éventuels sur l'an- 
nuaire téléphonique. Cette 
tâche longue et fastidieuse 
rebutait les services mar- 
keting des entreprises. 
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Celui par qui le scandale arriva 


Les modems : 





des pompes branchées sur minitel 


I 
C est pourquoi, l'infor- 


mätique est Venue au secours de là 
fonction commerciale de l'entreprise 
en créant des outils de plus en plus 
sophistiqués et de plus en plus effi- 
caces. 
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©. a alors Vu apparaître 


surle marché, les maintenant célèbres 
cartes Modem et les logiciels de cap- 
ture de données de l'annuaire devenu 
entre-temps, grâce à la télématique, 
un annuaire électronique. 


(RE RE PRE | 
Les P et T avaient 
sous-estimé larichesse 
du filon, aujourd'hui 

ils voudraient le 
récupérer ! 





D e nombreuses entre- 
prises de marketing téléphonique se 
sont mises à exploiter le riche filon que 
constitue un annualre des abonnés du 
téléphone mis à jour régulièrement. 
Le préjudice de la Direction Générale 
des Télécommunications est réel et 
important, il se trouve même aggravé 
dans la mesure où le Service National 
des Annuaires de Télécommunication 
propose depuis un peu plus de 5 ans 
des opérations de marketing direct ou 
des achats d'adresses. 


La douce voix du robot 
vous annonce : "c'est 
pour un sondage" 


L e problème n'a pas été 
appréhendé avec toute l'attention 
qu'on devait lui porter car il a été 
occuité semble-t-il par les débats 
juridiques et déontologiques occa- 
sionnés par l'apparition d'entreprises 
de marketing téléphonique utilisant 
l'ordinateur ou le robot, selonles mots 
employés par le syndicat du marketing 
téléphonique, pour délivrer des messa- 
ges à caractère commercial ou politi- 
que (on couple un certain nombre de 
magnétophones à un ordinateur équi- 
pé d'une carte spéciale, il compose 
seul les numéros de téléphone et 
délivre automatiquement ke message 
pré-enregistré dès que le prospect 
décroche son récepteur). 


FE n fait, le problème posé 
est un problème de Société car il nous 
fournit une excellente illustration de la 
course éternelle que le Droit dispute à 
la Technique et à la Science. Avant 
qu'une loi ne soit votée qui tienne 
compte de l'évolution technologique, le 
magistrat doit se débrouiller seul et 
faire face au vide juridique. Ainsi, 
comme on a assimilé l'électricité à une 
chose susceptible  d'appropriation, 
pour éviter l'impunité de ceux qui fai- 
salent des “emprunts” ou "détourne- 
ments” au détriment de l'EDF ; il nous 
faut aujourd'hui admettre par analogie 
que l'annuaire papler dont l'article 
R 10 du code de Pet T réglemente 
l'édition et l'annuaire électronique sont 
deux manifestations, deux modalités 
de la même entité physique qu'est 
l'Annuaire. 


A ce propos, nous pou- 
vons rappeler que le gouvemement 
d'avant les récentes élections prési- 
dentielles avait commencé à discuter 
les termes d'un décret qui devrait être 
soumis à l'avis du Conseil d'Etat. 
Ce texte interdira purement et simple- 
ment la reproduction et donc la 
cession et la iocation du fichier des 
abonnés du téléphone à partir de 
l'annuaire électronique. 


Le gros problème : 
combien rapporte 
une adresse 


L es exceptions sont ce- 
pendant prévues au profit des entrepri- 
ses qui auront reçu l'autorisation de 
reproduire ces fichiers moyennant le 
versement d'une indemnité permettant 
aux P et Td'amortir leurs investisse- 
ments. 
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JURIDIQUE 


C e décret devra résoudre 
deux problèmes importants : quelles 
sanctions pour les contrevenants ?.. 
etomment faire la preuve de l'infrac- 
tion notamment lorsque les infractions 
sont commises dans des pays voisins 
où s'établit le pirate ? 


P., ce qui est des 
sanctions, il convient de déterminer le 
prix que rapporte une adresse au 
contrevenant et faire de sorte que la 
légalité coûte moins chère que l'infrac- 
tion. En un mot, il faut que la peine, 
l'amende soit dissuasive. 


L'annuaire 
électronique 
bientôt inviolable 


L e problème le plus déli- 
cat est celui de la preuve de l'infraction. 
Frama Téiécom (nouveau nom com- 
mercial de la DGT) est en train de 
mettre tous les moyens pour parvenir 
à rendre ses services imperméables à 
toute intrusion ou, tout au moins, à 
créer un système dans lequel tout 
accès au service lalssera des traces 
matérielles. Outre le problème juridi- 
que posé par l'admissibilité de ces pro- 
cédés comme moyen de preuve parles 
juridictions répressives, en l'occurence 
le tribunal correctionnel, il ne faut sur- 
tout pas mésestimer la rouerie et l'in- 
géniosité des pirates professionnels. 


P.. mémoire, on peut 
et on doit se souvenir des essais 
fructueux du Canard Enchaïîné pour 
accéder à des banques de données 
en principe inaccessibles car mettant 
en cause des secrets de défense 
nationale. ml 

À. À. 


51 


LOGICIELS 


votre moto, c’est le logiciel qu'il vous 
faut : il suffit de tirer le joystick en 
arrière pour se retrouver Sur Une roue. 
D'ailleurs, même sivous n’aimez pas 
ça, n'hésitez pas à vous mettre sur 
votre roue arrière avant de franchir un 
obstacle car, sans cela, Vous perdez 
automatiquement de la vitesse. Bien 
sûr les autres concurrents ne sont pas 


Enouro Racer 


UOI 

DE NEUF 
CHEZ LES 
EDITEURS 
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décidément 
prolixe sur 


de nouveaux jeux. 
L'éditeur parisien 
a cherché à 
apporter du neuf 
Thomsonis- 
et le résultat 
l’est pas toujours 
la hauteur des 
espérances. 





Voilà un sport que l'on ne trouve 
pas souvent sur Thomson, ni sur les 
autres d'ailleurs. L'idée est donc 
bonne : une simulation de moto-cross à 
travers une course contre d’autres 
motos et voitures. 


Tout commence 
bien : au top départ so- 
nore, vous êtes sur votre 
moto au milieu de la piste, 
le paysage est verdoyant 
et au loin vous apercevez 
un concurrent qui dispa- 
rat à l'horizon. C'est 
alors que vous poussez 
votre poignée de jeu à 
fond pour accélérer, et il 
ne se passe rien. Mais si | 
Regardez mieux, votre 
pneu arrière bouge légè- 
rement et surtout, preuve infaillible, le 
compteur indique une vitesse crois- 
sante. Le doute n'est plus permis : 
vous avancez | Tout ceci pour dire que 
lon est loin des sensations que lon 
éprouve sur une moto-cross. L’ab- 
sence totale de bruitage, à part le top 
départ et les accidents, laisse une im- 
pression de vide. Après tout sion aime 
faire de la moto c'est aussi pour faire 
Vroom Vroom. 


Par contre, si vous n'êtes jamais 
arrivé à faire une roue arrière avec 
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vraiment sympas et ils n'hésitent pas à 
jouer des coudes avec vous pour vous 
envoyez dans le décor. Quoi qu'il 
arrive, restez calme car ce sera tou- 
jours vous qui irez mordre la pous- 
sière quol que vous tentiez. 


Au départ, vous êtes crédité de 
80 secondes et votre but est de couvrir 
une certaine distance tout en doublant 
des concurrents. Si vous atteignez ce 
but, vous êtes à nouveau crédité de 80 
secondes et vous passez à la 
deuxième partie : le désert, avec des 
4x4 ; puis le désert la nuit. Il y a 5 
stades différents. 





Vous pouvez bien sûr jouer à 
deux, mais attention car le passage 
d’un joueur à l’autre se fait approxima- 
tivement en 0,2 secondes et comme 
tout se joue sur une seule manette, je 
vous laisse imaginer à quei point c’est 
aisé : autant faire de l'enduro à deux 
sur la même moto |! 


Les graphismes sont donc 
assez simples mais très variés avec 
les cingstades ; la difficulté est crois- 
sante avec un nombre de plus en plus 
important de concurrents à quatre ou 


deux roues. Ils sont d'autant plus 
difficiles à éviter qu'ils viennent se pla- 
cer en dessous de vous lorsque vous 
décollez sur un tronc d'arbre ou autre. 


Dornmage, les 8 premières se- 
condes étaient bien. Mais FIL ne se 
limite pas à un seul logiciel pour l'été. 
Alors que de nombreux éditeurs 
attendent la rentrée pour nous livrer 
leurs dernières productions, FIL nous 
offre le produit de l'été sur Thomson : 
WIZBALL. 


Wizsau 


WIZBALE 


& 


Làäencore, l'idée est entièrement 
originale. À ma connaissance elle 
n'existe que sur Atari ; ia concurrence 
n'est donc pas forte. Le scénario : un 
méchant sorcier (il faut bien un mé- 
chant queique part, sinon le blen ne 
pourrait pas triompher à la fin) a 
supprimé toutes les couleurs du 
monde où vous vivez. 

Et qui êtes-vous ? Une petite 
balle verte ! Vous allez tout faire pour 
rendre ses couleurs à votre planète. 
Vous ne serez pas seul car votre chat 
pourra vous aider si vous faite appel à 
lui. Face à vous, les sbires du sorcier 
sont légion : des gendarmes, des 
mächoires à dentition impression- 
nante, des grappes de raisin de l'es- 
pace (on les reconnait car elles ont 





une jolle couieur vert 
fluorescent), des cercles 
rouges, d’autres bleus... 
Bref, même les mé- 
chants ont des aspects 
assez inhabitueis, alors 
le chat, je peux vous 
l'avouer, ressembie plutôt 
à un bouton de pantalon 
qu'à un félin. Mais tout 
celan'apasd'importance, 
au contraire, il s'agit là 
d'un monde cohérent et, 
répétons-le, original. 


Votre balle (donc vous) évolue 
dans un monde fait de cheminées 
(vous pouvez tomber dedans et vous 
retrouver unétage piusbas, donc dans 
un monde parallèle), de colonnes et de 
tuyaux. Vous progressez en rebondis- 
sant, etil vous faudra donc prendre de 
lélanpoursauterpar-dessus les colon- 
nes ou par-dessus les ennemis 
d’ailleurs. 

Lorsque le jeu commence, vous 
rebondissez joyeusement à côté d’une 
colonne, un joli sourire sur votre visage 
vert ; rnais au moindre déplacement 
tout se gâte. Les raisins de l'espace 
s’approchent et vous allez devoir leur 
tirer dessus sans quoi vous serez dés- 
intégré avec un bel effet sonore. Car 
sous son aspect fort sympathique, la 
petite balle n’en est pas moins armée. 


Une fois que vous leur aveztiré 
dessus, ces «grappes de raisins» se 
transforment en boule jaune que 
vous pouvez alors gober. Et c'est le 
passage secret pour accéder à d'im- 
portantes possibilités de transforma- 
tion. Ainsi, lorsque vous gobez votre 
première boule jaune, vous séiection- 
nez une icône située en haut de 
l'écran. A ce moment-là, si vous 
secouez vivement ie manche de votre 
manette de jeu de gauche à droite, 
vous deviendrez beaucoup plus précis 
dans vos dépiacements. 

Ce principese répète tout au long 
du jeu ; dès que vous aurez gobé votre 
deuxième bouie jaune, vous pourrez, 
toujours en maitraitant votre manette 
de jeu, sélectionner ia deuxième 
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icône. Cette fois, Vous pourrez contrô- 
ler ies déplacements verticaux de 
votre baile : finiles rebonds et vous 
verrez que c'est beaucoup pius facile 
pour viser ! La troisième bouie ne vous 
apporte rien, si ce n'est le plaisir de 
vous dépiacer en rebondissant au 
plafond (expérience unique !). Par 
contre la quatrième vous permet de 
faire appel à votre chat en maitraitant 
ce qui reste de votre manette de jeu. 

A partir de là, tout se corse. Vous 
allez devoir affronter les gendarmes de 
l'espace ainsi que ies célèbres 
«mächoires de l'espace» que vous en- 
tendez claquer des dents avant même 
de les apercevoir à l'écran. 


Et enfin, si vous êtes toujours 
vivant, des boucies de couieur vous 
attaqueront ; mais dès que vous leur 
tirez dessus, elles se transforment en 
gouttes de peinture, et attention, seul 
votre chat peut les attraper. 

Pourquoi faire 7? Rappelez- 
vous du début de l'articie (normale- 
ment Vous avez du commencer par 
là). Vous devez rendre ses couleurs à 
votre monde ; et donc collecter ies 
gouttes afin de remplir 4 seaux. 

Grâce à ce jeu, vous allez 
remplir des seaux tout l'été, cela vous 
rappellera peut-être votre tendre en- 
fance, quand vous faisiez des pâtés 
de sabie sur la plage. 

En tout cas, à part les seaux, rien 
ne vous rappellera notre univers. Tout 
dans ce jeu est original, et c'est tant 
mieux. M 

Amaury De Montbrey 
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EVENEMENT 


TEOscooP 


7 MORE D à = 
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Adaptation en cours du plus 
beau jeu du ronde sur Thomson. 

LE CAPTAIN BLOOD" vous 
reprend du service et se remet à la re- 
cherche des cinq mutants perdus dans 
la galaxie. Graphismes superbes 
(musique de Jean MicheiJarre) et mise 
en scène fabuleuse. 

Sur une carte galactique, vous 
pointez votre destination pour vous y 
rendre, vous atteignez la vitesse 
lumière : impressionnant (les étoiles 
défilent) ; ensuite vous visualisez la 
planète la plus proche et avez la 
possibilité d'aller faire du rase-motte à 
sa surface. 

Alors, si vous avez de la chance, 
vous y trouverez un mutant et conver- 
serez avec lui. 

Une possibilité vous est offerte 
de détruire laplanète en question, c'est 
prenant... 

Sachez maintenant qu'il est 
d'ores et déjà disponible sur Amstrad 
(Métal Hurlant Logiciel). B 
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Quant au petit nouveau de chez 
Infogrames, OPERATION JUPITER, 
ll est encore en gestation dans les 
ordinateurs de l'équipe. Nous avons vu 
en avant première certaines scènes : 
grandiose...Les membres d'une am- 
bassade sont pris en otage. Vous, le 
GIGN, avez pour mission de iles 
libérer. A votre disposition plusieurs 
grades et différentes missions. 
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Le scénario est excei- 
lent : on s'y croirait (bruitages, 
musique, graphismes...). De- 
vant la qualité du jeu, TEO est 
resté muet. Nous vous pro- 
mettons un essai compiet dès 
ia parution du jeu. M 


CORTEX 


APPRIVOISER PROLOG (séquence VII 


METAVARIABLES... 





1. NIVEAU LOGIQUE DE PROLOG 


PROLOG se rneut, en gros, dans une logique des prédicats 
du premier ordre, c'est-à-dire entre une logique des propo- 
sitions et une logique dite des prédicats du deuxième ordre. 
La logique des propositions met simpiement en connexion 
des lettres et des «expressions bien formées» à partir de 
ces lettres et des connecteurs, comme (A v 7B). Elle 
permet d'alléger considérablement la rechercheet l'écriture 
des processus logiques; étant donné que l'on peut toujours 
rétablir (moyennant une bonne redistribution des variables) 
les termes de la logique du premier ordre que les schémas 
de termes qu'elle manipuie peuvent représenter. 

La iogique des prédicats du premier ordre, comme son nom 
l'indique, se centre sur la notion d'un PREDICAT, racine 
d'un arbre qui enveloppe dans ia parenthèse qu'il com- 
mande autant de branches que laformen-unaire du prèdicat 
permet de commander. Qu'il soit prédéfini, comme le PRED 
ternaire ( -(*XO, *X1, *X2)) ou défini comme le PRED binaire 
(père (*Xo, “X1)), le PRED se comporte toujours, ainsique 
FREGE l'a montré dès le siècle dernier, comme une 
fonction et comme un concept. Il se comporte comme une 
fonction du fait que sa donnée, et la donnée d’une partie des 
variables qu'il englobe, permet d’instancier les variables 
indéterminées, *XO à 5 dans + (3, 2, * XO) 
ou, si les faits inscrits le permettent, “XO à Marie dans aime 
(jean, * XO). Il se comporte comme un concept en ce sens 
qu'il répond, quand toutes ses variables sont instanciées, 


par VRAI ou FAUX. On appelle «cheval», par 
exemple ce qui répond VRAI, ou OUI, ou 
SUCCES à l'interrogation (? cheval (* X0) avec 


cheval (X0) si vertébré (X0) etc...)). De sorte que si(?: 
+ (7, 4, 8)) répond ECHEC c'est tout simpiement 
parce que l'on n’a pas effectué une addition. Cette double 
puissance, liée à l'unification, donne à PROLOG d'énormes 
vertus logiques bien que certains aspects de la logique du 
premier ordre y demeurent impiicites ou indéfinis ; 
notamment les quantificateurs (tel prédicat vaut-il pourtous 
ies XO ou seuiement pour certains d'entre eux ?)... 

Le problème que nous nous posons aujourd'hui est ceiui de 
l'accès à une logique du troisième ordre, où le prèdicat lui- 
même seralt une variable, une variabie que nous pourrions 
appeler METAVARIABLE pour ia distinguer des variables 
proprement PROLOG. 


Face à ce problème nous nous heurtons à l'impossibilité 
d'écrire, de noter directement une métavariabie quelconque, 
comme par exemple la M-V binaire 

( XO (* X1, * X2)). Et, de toute façon, même si nous le 
pouvions (certains PROLOGle permettent), nous ne serions 
pas plus avancés car, en son état actuel, PROLOG ne 
saurait pas calculer sur elle. Tout ce que PROLOG peut 
faire, et qui représente déjà de fascinantes richesses, c'est 
accepter l'écriture d'une fausse métavariable mais de 
n'engager sa résolution que si cette métavariable est 
instanciée, au moment de l'appel, par un «vral» prédicat 
PROLOG, écrit sous sa forme d'atome. 


2. ECRITURE ET MANIPULATION DES 
METAVARIABLES 


a) La question de l'écriture et celle de l'instanciation 
peuvent sirnuitanément se résoudre par un simple décalage 
à droite (à l'intérieur de la parenthèse prédicative) de ia 
métavariable *XO, ce qui supprime bien entendu la mise en 
place d'une sorte de méta-prédicat : de *XO(*X1, “X2) à 
FONCT2 (*X0, “X1, “X2) avec des instanciations toutes 
prêtes pour *“X0, par exemple DBL ou CARRE. 





Nous désignons ici ce métaprédicat par 
- d'une part pour attirerl'attention surlefait qu'il s’agit d'une 
«fonctionnelie», c'est-à-dire d'une fonction dont un argu- 
ment au moins est une fonction. 
- d'autre part pour indiquer que le premier argument de 
FONCT2 est unprédicat à deux arguments. On peutenetffet 
introduire des FONCT3 pour des prédicats à trois places 
(comme la concaténation de deux listes en ie produit de 
deux nombres) : 
=3=<13>-FONCT3(CONC, *X0, “X1, "X2 

CONC(*X0, “X1, *X2). 


ou à quatre places (ou plus) par exemple pour des formules 
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de calcui numérique, pour des concaténations de conca- 
ténations intéressantes de chaînes de caractères ou de 
listes : 


æ1=<142FOHCT4( CCON, XX, KA1, KH2, K23 ): 
CONCC 440, #1, XX4 38 
COHCC 444 , XK2, XK3 3, 


- remarquons au passage que FONCT a toujours un 
argument de plus que ia fonction qu’elle enveloppe, à savoir 
la fonction elle-même. 

b) la résolution ne pose aucun problème, l'unification est 
facile puisque XO occupe bien la place d'un atome à 
l'intérieur d'un n-uplat parfaitement défini. 


87: FONCTZSC BL, 5, 445 à 


#0 = 10 
=JOUCCES «(12 
#7 :FONCT3<CONC,CA,B,C2,61,2,32,*#@0 


**0 = (CA,B,C2,61,2:3)) 
"rs SUCCESS C1 2 


57 : FONCTAC CCOH, "PARLER", "A1", "5", 440 à 


xx = "PARLERAIS" 
7 SUCCES -(19—- 


3. MAP ET MAPCAR 

MAP désigne une famille de fonctionnelies dont le premier 
argument est une fonction qui s'applique successivement 
à un ou piusieurs ensembles d'arguments, soit à des 
éléments successifs mis en correspondance dans une ou 
plusieurs listes, soit à des queues delistes successives, c'est 
à dire à des listes. 

MAPCAR travaille au niveau des éléments eux-mêmes, 
c'est-à-dire au niveau des têtes de liste (appelées CAR en 
LISP). La structure générale d'une MAPCAR apparaît 
clairement dans l'écriture : 


=l=<d2MAPCARSC #46, NIL,HIL 3, 

a2z< 16 MAFCAREL KAQ, CHA 5 HAD D, HAS Kid XD: 
FOHCTEC #X0, KA1, KASG DE 
MAPCAREC #40, HAE, #44 1, 


ST: MAPCRAREC DEL, € 19, -4,5, 72, #9) 


#0 = 629,-8, 18,142 
-— SUCCES ——{ 1)-- 


à : MAPCARZE CARRE , € 20, -6, 10, 14}, 4x0 


= (444,64,160,1936) 
de 


#H0 


-— SUCCES 





MAPCAR3 fonctionne selon le rnême modèie : 
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=1=<5>MAPCARSC#KG, MIL, HIL,HIL 3. 
=2=€ 21 >MAPCARSC ANG, CHA 5 HAE D CHKBS 
#Xd 3, CEXS: XXE 3): 

FOHCT SC #KG, HAL, #AS, KKS DE 
MAPCARSC AND, KKZ, HA, HHE D. 


#7 : MRPCARS PROD, (5,5, 163, 

646,57: 8),##0) 

KO = (230,285, 80) 

— SUCCES --<1)-- 

ST: MAFCARGSE COHC, € 1,2,32, 

CHEB, C2), #0) 

#x0 = ((1,12,62,B23,€3,C3) 

= SUCCES —=(127- 
ll ast, d'autre pan, possible d'utiliser las MAPCAR comme 
des primitives de structuration ou d’exposé de connaissan- 
ces. Voici l'exemple d'une MAPCARS de présentation 
de données : 


=4=<12>FONCTSPRES, #X0, XX 1 , XD 21 
LINES PUTÉ #40, ‘EST’, #41, DE’ ,x##22, 


et d'une primitive interactive d'appel par MAPCARS. 


=1=<e1>TABL : 
LINE& 
PUT(’1RE LISTE’ x 
GETC #40 24 
LIHEE 
PUTC LISTE PROF’ 4 
GETE #1 26 
LIHE& 
PUT( ’8ME LISTE’ 6 
GETÉ#XZ 38 
MAPCARSC PRES, X 40, KH1, 42) 
87: THEL 
1RE LISTE 
$C PARIS, ROME , LONDRES , MADRID à 
LISTE PROP 
SCCAPITALE, CAPITALE, CAPITALE, CAPITALE ) 
ME LISTE 


SC FRANCE , ITALIE ; ANGLET-, ESPAGHE à 


PARIS EST CAPITALE DE FRAHCE 
ROME EST CAPITALE DE ITALIE 
LONDRES EST CAPITALE LE ANGLET- 
MADRIC EST CAPITALE LE ESFAGHE 
SASDECES = 3e 


k6 MAPCART (surprédicats 1 aires) sont intéressantes de 
leur côté. En voici une utilisation en vue de tester ies 
éléments d’une liste. FONCT1 (NBRE, *XO) confirme 
par NBRE si “XO0 est un nombre entier et renvoie 
ERREUR dans un autre cas. 
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=1=<10>FONCTICHBRE , 20 2: 
IHTEGER( 420 28 
LIHER 
PUTC'NBRE : ’,:4X0 


CUT. 
=2=€ 7 2FONCTICHBRE , XKG à: 
LIMER 
FPUTÉ ERREUR : ’,440). 
=1=C32MAPCARLCYAG, HIL 2. 
sé=(112>MAPCARICEXO, CHAT HAE DD: 
FONCT1LL 440, XX 1 26 
MAPCAR1C 49, AZ ?. 


87: MAFCARICHERE, (1,3, 4,#,7,639 


HBRE :1 
HERE :3 
MERE :4 
ERK '# 
HBRE :7 
ERR  :G 
= SUCCES =={1)== 


4. MAPLISTES 
S'adressant à des listes, leurs fonctionnelles ne peuvent 


qu'engiober des prédicats de liste, par exemple un prédicat 
d'inversion INV : 


else ES FOMCTIONC IH, HHG, HA] 2: 
IHVERSC#HE, MIL,#K1 02, 


avec 
124 MAPLISTC*XG, HIL, HIL)}, 
2e 18 MAPLISTC##D, CHK1: KES, 
CAKG: KA 3 9: 
FOHCTIONC #40, OK 1 5 #22 3, #49 38 
MAPLISTÉ#AD, #A4Z, Kkd ). 
et, bien sûr, un petit programme d'inversion 
ire > INC EÆAD, #41 1: 
IHYERSE #40, HIL, #41 3, 
=i=<4> IHVYERSCHIL, 440, 440 3, 
m2 122 INVERSC HO: HA 2, K42, #3 3: 
IHYERSCÆ4A1 , CAHO : AKZ D, #43. 
ST: MAFLISTE IN,6M,H,0,P,0R 3, 
#40) 
#40 = CR, 0, P,0,H,M3,CR,0,P,0, 
H, CF, P,02, CF, 6 P3,CFR,03,CR25 
—— SUCCES --(1i-- 
on peut aussi envisager une fonctionnelle LLPART qui, 
arrêtée d'emblée par un CUT avant ies queues de 
liste, renvoie la liste des parties de la liste entière ; solution 
simple et compacte (mais trop particulière) à notre problème 
LISTE.DES de ia séquence IV : 
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22=€52FONCTIONCLLPART, #40, 441 2: 
PARTLLE #XD, #1 28 
CUT. 

87: MAFLIST(LLPART,CR,B,C,D),*#x6 


420 = ((A,B,C,L),46,0,05, 
cCDi,603) 
=, SUCCESS OL 

sans la liste vide. 


5. LES REDUCTIONS DE LISTES (REDLL) 

Le même principe s'applique ici à une seule liste et en vue 
d'obtenir un résuitat globai (nombre, chaîne) qui n'est pas 
une liste, même si (comme dans le cas de la chaîne) il 
constitue une structure : 


=1=<é :REULLE 40, CHA 3, #41 2. 
ses 19 REULLE ##6, CKH1 , 4AZ : KG D, KKd dk 
FEU 440, #41, 4K2, HS 72 
RECLLE #X6, CS; 483 3, AK4 D. 
Voici trois exempies de fonctionnelles RED (pour ia somme 
des éléments, pour le comptage des éléments, pour la 
concaténation des élérnents) : 


#1=<92>REDC PLUS, 4K0, 421, KA? à: 
+CAAD, AN, ANZ I, 

=2=<93REDC COMPT, #H0 , XK1, XX2 0: 
+CHKG; 1, KK2 D. 

32€ 9 >REDCHIOT ,; HO, #K 1, #H2 2: 
CONCC #0, XX1, KK2), 


et les résolutions correspondantes 
$ 
$7: RECLL(PLUS,(1,2,3,4,53,xK02 


4x0 = 15 
—— SUCCES —-( 1) 
ST : FELCLLC COMPT , CPE PPT 33 4,5 2) +# à 


4x6 1. 
= SUCCES --{ 1 


à7 VREDCLE MOTS OP TEN, POSTES 
"C2, 42 

AG = "PROLG" 

+ OUCCESFENULEe 


en remarquant que, dans le cas de COMPT, ia structure 
impose d'ajouter un O en tête de liste, ce qui rend peu 
avantageux d'employer REDLL (COMPT, X, X) pour une 
moyenne. Dans ce cas la vieille primitive «longueur» est 
préférable. 


Rendez-vous pour la suite dans notre prochain TEO. 
Armand BIANCHERI 
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EDUCATIF 


Cette rubrique sera dorénavant présente dans chacun des numéros de TEO. 
Consacrée aux nouveautés en matière d'éducation, elle passera en revue tout aussi 
bien les logiciels d'éveil pour les petits que les logiciels d'apprentissage ou de 
révision des connaissances, qu’ils soient scolaires ou para-scolaires. 

En pleine évolution, les didacticiels méritaient ces quelques pages. Ouvertes aux 
parents comme aux enfants, elles attendent vos suggestions, questions, etc. 

Pour ce numéro de vacances, voici des logiciels de détente et de révision, suscepti- 
bles de vous aider à préparer une bonne rentrée. 


UN COLORIAGE ANIME 


RODY et MASTICO n'aurait pô être qu'un bel album de coloriage destiné 
aux enfants âgés de quatre à sept ans. Ce logiciel est en fait un petit livre aux 
graphismes agréables, suffisamment gros pour être coloriés, doué d'une anima- 


tion et d'une synthèse vocale qui font tout son charme informatique. 





CAT 
L'Image proposes... 


L'histoire, au shéma somme 
toute traditionnel, entraînera cepen- 
dant le jeune utilisateur dans une 
aventure captivante. 





Mastico le robot au 
service des tout petits 
qui ne savent pas 
encore lire 


Rody, un petit garçon, et Masti- 
co, son arni le robot, devront retrouver 
l'étoile muiticolore dérobée au profes- 
seur Gobino, condition sine qua non, si 
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La même recoloriée par l'enfe 


celui-ci veut continuer à fabriquer des 
chewing-gums de toutes les couleurs. 

Chaque nouveau tabieau (et iis 
sont nornbreux) peut être colorié à la 
demande de l'enfant. Tout un choix de 
couieurs et de formes lui est alors 
proposé. Mais il peut passer outre le 
coloriageet se contenter, pourfranchir 
une étape, de répondre aux questions 
de Mastico qui sollicitent dans lensem- 
ble son attention et sa logique. 

Malheureusement, ces ques- 
tions sont inégales tant au niveau de 
leur difficulté que de leurpertinence. li- 
logiques parfois, la réponse dépend 
plus du hasard que d’un véritable sens 
de i'observation. 

Un des intérêts de ce logiciel 
réside dans la synthèse vocale, relati- 
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vement bonne, qui permet aux pius 
jeunes de profiter du jeu et de les aider 
à lire. Les musiques variées ajoutent 
du piquant aux situations traversées 
par ie héros. 


Son premier coloriage 
à la souris ! 


En revanche, sile iogiciel permet 
de se familiariser au maniement de la 
souris, il est regrettabie parfois qu'une 
trop grande exactitude soit exigée 
quant au placement du curseur pour 
indiquer ia bonne réponse. 

Ceci dit, la bonne expioitation des 
spécificités du micro-ordinateur et ja 
trame narrative plaisante font de ce bel 
album un logiciel d'éveil que les petits 
apprécieront, sans aucun doute, énor- 
mément. 

Editeur : LANKHOR 

Prix :175F 

Version ATARI disponible, attendons 
avec impatience la Version THOM- 
SON. 


4 


REVISIONS ESTIVALES 





A lafin d'une année scolaire, bien 
des notlons restent encore floues pour 
un écoller. Brigitte REDON, ancienne 
institutrice, le sait bien et nous propose 
un logiciel de révision de notions 
mathématiques qui prêtent souvent à 
la confuslon. 

Ainsi, LES PARENTS DE MES 
ENFANTS SONT-ILS LES ENFANTS 
DE MES PARENTS ? offre toute une 


série d'exercices relatifs à la somme, le 
carré de la somme et la somme du 
carré. 

Ce programme qui se présente 
en deux modules, comportant respec- 
tivementtrois et cinq parties, Va dans 
un prernler temps proposer un rappel 
des connaissances de base (vocabu- 
jaire, ordre sur les rationnels, opéra- 
tions sur les décimaux, valeur 
approchée, etc.), le contrôle de ces 
connaissances puis leur réinvestisse- 
ment dans des situations plus 
complexes. Dans un deuxième temps, 
le logiciel permet de découvrir que ie 
carré de la somme n'est pas égal à la 
somme des carrés. 

Un des atouts de ce logiciel ré- 
side dans deux passages à la géomé- 
trie qui permettent en fait de visualiser 
pour mieux mémoriser ces différences. 


EDUCATIF 


Chacun des moduies propose 
des aides à l'utilisateur qui peut connaî- 
tre à ia fin de chaque étape le bilan de 
son travail. Si celui-ci n’est pas satis- 





faisant, l'élève pourra recommencer le 
même parcours, puisqu'un tirage aléa- 
toire assure à chaquefois des données 
renouvelées. 

Indispensable àtous ies élèves 
de troisième et pius qui souhaitent 
posséder définitivement ces notions. 
Editeur : CARRAZ EDITIONS 
Prix : 220 F 
Version:Nanoréseau - PC & comp. 





BOUGEONS LES MOTS 





Avec  SUJET/COMPLEMENT, 
Carraz Editions propose aux enfants, 
dès l’âge de dix ans, d'apprendre oude 
réviser certaines notions grammatica- 
les. Fondés sur la grammaire fonction- 
nelle et transformationnelle, les exerci- 
ces, dontle niveau va crescendo, sen- 
sibilisent l'utilisateur à la rigueur et à la 
souplesse de la phrase française. 


Le premier module, SUJET, 
repose surlaconnalssance du sujet par 
«c'est qui» et la pronominalisation du 
groupe sujet par un pronom personnel. 
Le deuxième, COMPLEMENT, de- 
mande à l'utilisateur de pronominaii- 
ser le complément, d'opérer au dépla- 
cement et à la suppression de ce 
même complément. 

L'analyseur de réponses permet 
au grammalrien en herbe de se iivrer à 
cette petite gymnastique intellectuelle 
de façon autonome. 

La présentation, bien que ciassi- 
que, est aérée et l'utilisation du crayon 
optique ou des touches fiéchées du 
clavier facilite les repérages. Finis les 
«surlignements», les gribouiilis, les 
flèches dans tous les sens sur les 
cahiers des écoliers. La lecture du 
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résultat est ciaire. Ce dernier point 
n'est pas le seul avantage pour les 
enseignants. Ajoutons en effet que le 
iogiciei est entièrement paramétrable 
et que ies fonctions du menu «ensel- 
gnant» permettent non seulement de 
lire les résuitats obtenus parles éièves 
mais aussi de revoir point par point la 
progression de ceux-ci lors des exerci- 
ces. 

Une beile réalisation, pratique et 
efficace, qui tire partie, elle aussi à sa 
façon, des avantages du micro-ordina- 
teur. 

Editeur : CARRAZ EDITIONS 

Prix : 250 F chaque module. 

Version : Thomson, Nanoréseau et 
PC. 


Elisabeth DISSE 
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LE BASIC FONCTIONNEL 


À BAS LES 






OTO |! 


Il est d'usage de critiquer le Basic comme étant un langage non structuré, c’est- 
à-dire un langage pour débutant ou pour bricoleur. Dijkstra n’a-t-il pas affirmé 
récemment que les étudiants qui ont appris avec le Basic sont des étudiants "foutus" 


pour l’informatique. 


Pourtant, Thomson a doté son 
Basic 128/512 d'instructions de struc- 
turation qui rapprochent ie Basic de 
jangages ayant meilleure réputation, 
plus évolués, tels le Pascal et le Ada (le 
petit dernier commandé par l'Armée 
US pour mettre fin au gaspillage du à 
l'anarchie de 400 langages). 

Pourquoi faut-il bien écrire les 
programmes ? N'est-il pas irritant de 
ne pouvoir modifier facilement un de 
ses programmes que l'on connaît pour- 
tant très bien ? N'avez-vous jamais 
cherché à adapter pour vos besoins un 
programme paru dans vos magazines 
préférés ? 

Dans ce dernier cas, il faut re- 
connaître que souvent une modifica- 
tion s'avère impossible ou bien que ie 
programme doit, purement et simple- 
ment, être réécrit dans sa totalité. 

Le souci de bien écrire ies pro- 
grammes est motivé la plupart du 
temps par le gaspillage en temps de 
travail inutile, quand ça n'est pas par 
des échecs pénibles. Pourtant, le ré- 
flexe de bien programmer devrait 
naître dès le début de l'exercice de 
la programmation et avec le langage 
d'apprentissage, même le plus simple 
comme le Basic. 

Dans les années 60, ies pro- 
grammes étaient simples et ne dépas- 
saient pas quelques centaines de 
lignes. Le coût de ia programmation et 
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de sa maintenance, c'est-à-dire ies di- 
verses modifications ultérieures du 
programme, ne réprésentait que 30 % 
du coût total de la production d'un 
iogiciel. 


ll faut plusieurs 
développeurs pour 
modifier le travail d'un 
seul programmeur 


Les programmeurs écrivant des 
nouveaux programmes étaient produc- 
tifs. Mais aujourd'hui, les programmes 
sont plus complexes, ils comptent 
plusieurs dizaines de milliers de lignes. 
Si écrire un programme est encore 
assez simple et ne représente que 6% 
du co0t, la maintenance est devenue 
unenfer eta dépassé, àelle seule, 72% 
du coût total. En 1975, un rapport 
américain estimait déjà le coût d’une 
ligne à 75$, sa modification à 600$. 
Dans une équipe, piusieurs program- 
meurs sont nécessaires pour modifier 
les programmes écrits par un seul pro- 
grammeur ; ils ne sont plus productifs. 
Avec une telle évolution, on peut 
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prévoir pour bientôt qu'écrire et 
maintenir un programme coûtera plus 
que son prix de commercialisation. Il 
existe déjà les programmes jetables. 
Ce gaspillage doit être combattu. 

Une autre raison pour bien écrire 
un programme est sa plus grande faci- 
lité d'écriture et de mise au point, par 
exemple en informatique interactive, et 
c'est souvent le cas sur les ordinateurs 


individuels. Les programmes ont 
généralement une structure com- 
mune. 


Ne pas le voir signifie réécrire 
chaque programme à partir derienet 
mettre et remettre au point des 
aspects pourtant déjà résolus dans 
d’autres programmes. 

Exemple de structures identi- 
ques : 








Le Basic fonctionnel, s’il est 
appliqué avec discemement, autorise 
des manipulations de programme, 
comme de déplacer des ensembles de 
lignes sans provoquer les cauchemars 
du programmeur dus aux GOTO dé- 
monlaques (ceux qui partent mais 
aussi ceux qui arrivent d'on ne sait où). 


Dans les années 60 
on pensait pouvoir 
résoudre tous les 
programmes avec 
une "bibliothèque" de 
programmes 


Doit-on évoquer les ennuis 
causés par un goto intempestif qui, s’il 
sort d'une structure (GOSUB, FOR, 
PERFORM...) provoque la destruction 
de latable des retours (RETURN, 
NEXT...). S'il y a plusleurs niveaux, 
bonjour les dégats I (Dijkstra avait jeté 
l’'anathème contre les GOTO). 

Une autre raison qui motive le 
Basic fonctionnel est l'évolution des 
langages. Grâce aux instructions de 
structuration des programmes 
{comme l'instruction DO:...LOOP) et 
l'étude de concept de programmation, 
le Basic fonctionnel permet de prévoir 
le passage du Basic aux langages 


plus évolués. Parmi ces langages à 
l'avenir immédiat : le Turbo-Basic, le 
Pascal, le Cetle Ada, lestrois premiers 
sont déjà disponibles sur le TO16 
compatible. 

Historique : 

A l'apparition des premiers or- 
dinateurs (1948), le programmeur ne 
disposait que de langages machines 
(codage binaire de la machine) et de 
langages assembleurs qui, blen que 
symboliques, correspondent à la 
structure de la machine. Ils sont 
techniques et éloignent trop de la 
fonction des programmes. 

En réponse à cette difficulté, est 
née l'idée fantastique de laprogramm- 
mation automatique :tous les program- 
mes écrits sont placés dans une bi- 
bliothèque. Celle-ci devenant de plus 
en plus grosse, tous les domaines de 
la programmation finiraient par être 
couverts. 

La programmation était condam- 
née. Bien sûr cette idée se révéla 
fausse : un programme est le reflet 
fonctionnel d'une situation, il ne peut 
être l'ensemble exact de morceaux de 
reflets d’autres situations. 

De fait la programmation n’a vral- 
ment commencé qu’à partir de 1959, 
avec le premier langage évolué digne 
decenom:le COBOL. Mais dès 1960, 
on s’aperçut qu'on avait le langage 
mais pas le mode d'emploi de la 
programmation. 


En 1970, le premier 
mode d'emploi de 
programmation 
apparait ! 
| 


Le premier mode d'emploi est, 
de toute évidence, le LCP de JD 
Wamier (1970) dont le principe est 
qu'un programme est construit à partir 
de la structure des fichlers qu'il traite. 
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Le mode d'emploi suivant est la 
programmation structurée (Tallineau 
et Bertini Le Cobol Structuré 1972 - 
Tabourier Rochfeld et Franck 1975), 
dont le principe est que tout langage de 
programmation contient les structures 
fondamentales de la programmation. 

Mais c'est récemment que fut 
mis en évidence le principe defonction- 
nalité : les structures d’un programme, 
qu’elles viennent des fichiers ou du 
langage, correspondent aux fonctions 
d’une situation. 

A noter la tentative d'adaptation 
de la méthode Wamier faite par les 
galopins de la micro-informatique, 
Sénicourtet Massiou avec Logic Basic. 


RE RE 
Programmer 

c'est analyser 

le discours initial 


Le malentendu de la programma- 
tion : 

La réponse à la question «qu'est- 
ce qu'un programme ?» éclaire beau- 
coup sur la façon de programmer. 

Si on répond qu'un programme 
est un ensemble d'instructions, alors 
l'art de programmer se ramène au 
problème de trouver l'ordre d'exécution 
des instructions et donc à l’art de placer 
les GOTO. On est bien loin de la fonc- 
tion du programme. 

Si on répond qu'un programme 
est latraduction d'un discours, alors ce 
dernier est l'image d'une situation, il en 
traduit la structure. Programmer n'est 
plus un art, mais demande d'analyser 
le discours initial, car généralement 
les fonctions de programme y sont 
contenues, ainsique leur organisation. 

Le programme étant la traduction 
d'un discours, il est un discours. 

Peut-on imaginer la traduction 
d'un roman qui ne serait qu'un assem- 
blage de mots avec des renvois entre 
les phrases pour assurer le chemine- 


61 





LE BASIC FONCTIONNEL 


ment dans l’ordre de la lecture ? 
Mais, à l'inverse, peut-on Imagi- 
ner la lecture d’un programme comme 
un discours ? Sans parler des noms, un 
seul GOTO et adieu la lisibilité. 
Prenons un exemple pour illus- 
trer ce malentendu. 


10 PRC-0:I=1 
20 INPUT NER 
30 IF NBR=PRC THEN Ixi1 ELSE 


IF 1>1 THEN PRINT PRC: Ii 
40 PRC-NBR 
50 IF NBR<>O THEN 20 


Que fait ce programme ? Pour le 
savoir, il faudrait le faire tourner. C'est 
donc un programme qui n’annonce 
pas ce qu’li est censé faire. On ne peut 
jamais prouver qu'un programme (plus 
gros) fait précisément ce qu'il est 
censé faire. 

Que penser d'un programme qui 
ne fait pas ce qu'il n’annonce pas qu'il 
fait ? 

L'énoncé est le suivant : une suite 
de nombres non nuls est lue au clavier. 
O0 marque la fin de la suite. On veut 
signaler les successions de nombres 
identiques, en écrivant le nombre répé- 
té de chaque succession. 

Parexemple, si lasuiteest : 77 53 
53 53 25 43 77 77 87 87 87 53530 on 
écrit 53 77 87 53. La suite n'est lue 
qu'une seule fois. 

Mais comment le modifier si on 
désire seulement déterminer la suc- 
cession la plus longue (la première, s'il 
yen a plusieurs) ainsique sa longueur? 


Mieux écrit, le programme de- 
vient : 


INPUT NOMBRE 

DO 

IFNOMBRE-0 THEN EXIT 
SUCCES=NOMBREREPETE=0 

DO 

IF SUCCES<>NOMBRE THEN EXIT 
REPETE=REPETE+1 

INPUT NOMBRE 

LOOP 

100 IFREPETE<1 THEN PRINT SUCCES 
110 LOOP 


10 
20 
30 
40 
50 
60 
70 
80 
90 








Ce programme nécessite les re- 
marques suivantes : 

- la structure du programme est 
donnée dans l'énoncé, Il y a bien deux 
répétitions, la suite écrite est un 
ensemble de successions et chaque 
succession, comme son nom l'indique, 
est un ensemble de nombres. 


| 
Ce qui se pense 
clairement s'énonce 
aisément 
CN 


Une répétition doit être appa- 
rente, avec DO … LOOP et non camou- 
flée sous un IF à l'intérieur d'un GOTO 
qui n'est pas la preuve d’une répétition. 

- les noms des variables sont 
lisibles et choisis dans l'énoncé. 

- nous avons cholsi de faire ap- 
paraître les répétitions à l’aide de DO 
.… LOOP qui permet l'itération généra- 
lisée, structure n'existant qu'en Basic 
512 et en Ada, les autres langages ne 
la possèdent pas. 

Bien sôûr, l'écritureest plus longue 
puisqu’elie explicite les structures. 

En GWBasic (sur compatibles) 
comme en Pascal, on utilisera la répé- 
tition tant que : WHILE … (WEND) 


INPUT NOMBRE 

WHILE NOMBRE <>0 
SUCCES-NOMBRE: REPETE-0 
WHILE SUCCES-NOMBRE 
REPETE=REPETE+1 


INPUT NOMBRE 
WEND 
IFREPETE>1 THEN PRINT 





- il y a 2 ordres de lecture car 
il y a une lecture de plus que de 
nombres. C'est le même principe que 
pour les intervalles en mathématiques, 
la lecture n’est pas un traitement dans 
le sens où elle ne correspond pas à la 
production d'un résuitat, elle constitue 
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la prise en compte de l'état d’une 
situation. Pour chaque action Informa- 
tique, il y a deux états : l’état avant et 
l'état après, 0 marque à l’état après la 
demière action. Il y a donc une pre- 
mière lecture au début et ue lecture 
pour chaque nombre à la fin de son 
traitement, correspondant au passage 
au nombre suivant. 


Un programme 

qui annonce ce qu'il 
fait est facilement 
modifiable 


- nous préférons toujours un pro- 
gramme qui annonce ce qu'il fait (s’il 
contient des erreurs, on peut plus faci- 
lement les corriger). 

La modäiication de l'énoncé se 
fait alors simplement avec les 3 lignes 
15, 100 et 120 : 


input nombre 

LONG=1 

do 

ifnombre=0 then exit 
succes=nombre: repete=0 
do 


ifsucces<>nombre then exit 


repele-repete+1 
input nombre 


loop 
100 IF REPETE>LONG THEN 
SUCCESLONG:LONG 
410 loop 
120 IFLONG>1 THEN 
PRINT SUCCESLONG:LONG 





La prochaine fols, il sera ques- 
tlon des choix et des alternatives ainsi 
que de l'appel de bloc avec GOSUB ; 
et de beaucoup d’autres choses avec, 
chaque fois le passage possible d’un 
langage à l’autre. ll 


Max HAGENBURGER 





NANORESE A U 


Du désir de Savoir 


Q SUJET/COMPLEMENT 








Ce logiciel regroupe 4 thèmes grammati- 
caux : reconnaissance du sujet par « c'est 
qui », pronomindlisation du groupe sujet, 
pronomindalisation du complément de 
phrase, déplacements et suppression du 
complément de phrase. Sujet/Complément 
offre la possibilité au professeur de créer 


ses HE fichiers, de lire 500 0 E 
I 


les résultats de l'élève et de 
| AUX ORIGINES DE LA VIE 


revoir le travail de l'élève. 





| . ju Ts . 
Ce logiciel explique les origines de la vie en 


prenant comme base de réflexion la consti- 


Hution de la cellule et ses modes de repro- 
(duction. Co-édité avec la Fondation Diderot. 














Er } : 
EL) p | DB} 
Réf. Produit Ps LA . 
ZNR 501 | Il était une fois 290,00 
ZNR 502 | Rédactian 290,00 
ZNR 503 | Le temps d'une histoire 320,00 
ZNR 601 | Au temps jadis 400,00 
ZNR 201 | Vie et mort des dinosaures 290,00 
ZNR 202 | Aux origines de la vie 350,00 
ZNR 301 | Didact english orth. gram. [callège] | 290,00 
ZNR 302 | Didact english orth. gram. lycée) | 290,00 
ZNR 304 | Didact english orth. gram. {is niv} | 500,00 
ZNR 507 | Sujet/Complément 500,00 
Écritures 900,00 


| ZNR 506 


VIE ET MORT DES DINOSAURES 


- \Y] 3 





Ce “jeu d'aventure a pour but de vous 
identifier à un jeune paléontologue étu- 
diant la vié des dinosaures afin de passer 
une thèse expliquant leur disparition. Ce 
logiciel & obtenu le Tilt d'Or du meilleur 
logiciel éducatif 1986. Co-édité avec la 


SL -)] GISI CCI ppren adre.: 


DIDACT ENGLISH 





Didact English est une méthode de soutien 
et d'apprentissage de l'anglais assistée par 
ordinateur. Sa pédagogie repose sur l'anc- 
lyse de réponse, et les messages grammati- 
caux sont nombreux et variés pour répon: 





dre à tous les cas possibles. 
Fondation Diderot. 
290,00 F 290,00 F 


ECRITURES 


Ecritures comprend quatre logiciels d'aide à l'expression 
écrite :Ilétait une fois, Rédaction, Le temps d'umetisioie, 
Au temps jadis. 
H était une fois 1 grâce à un canevas conforme à la 
morphologie du conte, l'enfont doit écrire un conte en 
complétant une trame narrative donnée par le logiciel. 
Re toutré des aides formelles quant à la rédaction 
traditionnelle {le portrait, la narration, la description], différentes formes de rédactionsont 
proposées pour chaque catégorie [le portrait en puzzle, la norration en flash-back, la 
Au Da ae de récits historiques. Plu 

temps fadis : logiciel d'aide à l'écriture de récits historiques. Plusieurs époques sont 
proposéeset à l'intérieur de chacune d'elles, des ss, +: ak mr à aux 
décors, aux activités, aux métiers, 
Le temps d'une histoire : permet d'écrire des contes ou des 
poèmes (suivant l'aide choisie), oniginaux et cohérents ense fondant 
sur la loi de la: des élements (eau, terre, feu et ar. 
Ces quatre logiciels peuvent être vendus séparément. 











Au temps 
jadis 


H était 
une fois 





Rédaction 


Le temps 
; d'une histoire 


mandat [] virement L] 


chèque ON 


Règlement par : 


Montant total : 


Nom : é iz 
Adresse : 


à retourner à : 

Carraz Éditions 

20 bis, rue Godefroy 
69006 LYON 








Eric ESCOFFIER en Pointes-avant dans le couloir Couturier de l'Aiguilte Verte, 


BIvOUGC : j y arriveraif! 


A plus de 4000, le manque d'oxygène donne une impression permanente d'asphyxie et le coeur 
humain bat à 120 pulsations/minute. Seule la volonté permet encore d'avancer. 


Lorsqu'Eric 
ESCOFFIER 
s'est tourné 
vers mol et m'a 
dit d'ouvrir la 
vole, J'al com- 
prla soudain 
qu'il me falsait 
entièrement 
confiance. Les 
nombreux mois 
d'entraînement 

À dursnt lesqueis 
Eric m'avait transmis tout son savoir faire 
alialent me permettrsenfin d'aesurer cere- 
doutsable honneur. Quelle fierté ! 


Ir 





Avec Bivouac, dans 
toutes les conditions 
météorologiquea, 
partez sac au dos, à 
la découverte des 
nelges éternelles. 
Sur des glaclers, des 
rochers, des paroia 
et dans des cre- 
vasses, utilisez les 
mellleurea  tech- 
niques d'escalade et 
maitrisez la mon- 
tagne et ses dangers 
pour atteindre le | 
sommet. 


Disponible sur : 
ATARI 
AMSTRAD 
THOMSON 


Éd 


Eric ESCOFFIER a su faire partager son 
amour de la montagne et ses dix ans de 
technique alpine, qui font de lul un des 
meilleurs grimpeurs au monde, pour 
réaliser la prsmière simulation d'alpinlame 
d'une réalité surprsnante | 








LA MICRO-SPECTACLE 


tt ÈS en. “Un HR, Mn as 


